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Simple, rapide, efficace : 

Téléchargez les listings publiés cha- 
que mois dans AMSTAR & CPC et ceux 
des numéros hors série de CPC. 
Il vous suffit pour cela du logiciel AR- 
CADES, d'un Minitel et d'un câble de 
liaison standard Minitel-Amstrad que 
nous pouvons vous fournir. 
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EDITO 



Vous êtes plusieurs milliers à rester fidèles à 
votre Amstrad, plusieurs milliers à vouloir l'ali- 
menter. Surprenant, non ? 

Vos lettres sont là pour nous le rappeler : "Ne 
nous abandonnez pas /". 

Loin de nous cette idée. Pour répondre aux be- 
soins de nos lecteurs, spécialistes du clavier, nous 
avons décidé dans les mois à venir de vous four- 
nir de quoi nourrir votre machine préférée. 



Al 



ors a vos claviers ! 



S. FAUREZ 
Directeur de publication. 
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IN = inertie 

PE = vitesse de chute du scooter 

X5 = déplacement scooter droite 

gauche 

Y5 = montée et droite du scooter 

XI = affichage du scooter 

Y 1 = affichage du scooter 



X4 = choix dans le menu 

J 1 = montée 

J2 = direction gauche 

J3 = direction droite 

tabl = numéro du tableau 

score = score 

vie = nombre de vies 

Pour les 464, il faut supprimer la li- 
gne 160 ainsi que toutes les instructions 
FILL contenues dans le listing. 



Valable pour 
K CPC 464 
» CPC 664 
«CPC 6128 



Scooter 
spatial 



Frédéric JULIEN 



Vous avez un scooter et vous 

devez descendre dans des 

galeries sans toucher les murs 

et en faisant attention au 

monstre qui tire pour vous 

empêcher de passer. 



Pour changer de tableau, vous devez 
vous poser doucement sur le télé- 
portateur rouge. Le jeu comporte 7 ta- 
bleaux et vous possédez 8 vies. Pour le 
déplacement du scooter vous avez les 
commandes : montée, droite, gauche, la 
descente se fait par l'attraction, il suffit 
de vous laisser tomber. 

Voici les lignes à modifier pour voir 
tous les tableaux : 

• Ligne 780 : Changer then 1080 par 790 
ce qui vous permet de tous les traverser 
et pour voir le tableau suivant, posez-vous 
sur le téléportateur rouge. 

• Ligne 1090 : changer vie = vie - 1 

par vie = vie - 

Comme vous le savez, ceci vous don- 
nera des vies infinies. Les variables sont 
les suivantes : 



1 'ttlltllltlllflllllllltllllllltil >FA 
tilt 

2 'i lEDIFINITION >FB 

i 

3 'tttttltlitltitltltttttlttltttttl >FC 
tilt 

5 MUQ 0:1MK 0,0:CLS >W 

10 SYNBOL AFTE1 «/:SYMB0L 250,30,70 >KE 

,40,100,70,30:SYIBOL 127,230,239,23 

9,0,254,254,2S4,0:SYhBOL 224,119,11 

9,149, 13Ï,138,/7,66,64:SÏIB0L 225,2 

36,236,236.0,254,138, 7 V . 66 : SYMBOL 2 

26,204,130,77,66,1 

20 SYMBOL 244,46,44,124,174,7,175,1 >DT 

27,30:SYMB0L 240,1,3,63,255,255,63: 

SYMBOL 242, 0,0.0.254. 252, 254, 0:SYKB 

OL 239, 0,0,0,0, 127,63, 127,0:SYHBOL 

248,0,126,192,252,255,255,252,0 

30 SYMBOL 48,1X1111110,111000010,11 >CB 

ÎOOOOIO.UIOOOOIO.UIOOOOIO.UIOOOO 

10,U1111U0,M0:SYMB0L 49,111100,1 

I1100,U1100,U1100,U1100,UUOO,li 

IUO0,U0:SYMB0L 50,111111100.11100 

,U100,U11U100,U1000000,U100000 

0,111111100,1X0 

40 SYMBOL 51,U111UOO,U100,U100, >EE 

U111100,U100,U100,U111UM,UO: 

SYMBOL S2.U1000100,U1000100,U100 

0100,111111100, 11100,4X100,11100, II 

0:SYHB0L 53,1X1111100.111000000,111 

000000. 4X11 11100, 1X100,11100,111111 

100,1X0 

50 SYMBOL 54,1X1111100,1X1000000,11 >FE 

1000000,111111100,1X1000100.1X10001 

OO.II1111100,1IO:SYMBOL 55.1X111110 

O.tllOO.lXlOO, 1X100, UIOO.IIIOO.III 

OOtSYNBOL 56,1X1111100,1X1000100,11 

ÎOOOIOO.IXUIIIOO.IIIOOOIOO.IIIOOOI 

00,111111100.110 

60 SYMBOL 57,U1U1100,U1000100,U >PJ 

1000100, tllllllOO. 1X100,1X100,1X111 

1100,UO:SYMOL 148,1X10011000,1X11 

010010,1X1111111,1X11101.1X111000,1 

ïiiùiiôû.illiOùûllO.tliO 

70 «UN'teu >SJ 



10 'tllllttttiiittttitttittttitiiit >LA 
tttl 

20 'i FBEDESIC JULIEN >LB 



30 'l 



60 'l 



70 'I 



PBESFJTE 



SC0OTE1 SPACIAL 



>LC 



>LD 



)LE 



>L6 



60 'lltlttltlltlttlttlttllittttlitl >LH 
lltl 

90 lii=0::pe=0:n=0:is=0:yi=0:t=0:il= >LY 

0:yl=0:(el=0:J2=8:J3=l:ib=39:rb=10: 

ttolll'l 

100 'itttittlitiitititilttltttltllt >Bfi 

lit 

110 'I MENU >«C 



120 '■•• IHMIItlItlttlMM m 

III 

130 tabl = l:in=l:K=l:n=0:u=0:ys=0: >PV 
t=0:ll=0:yl=0:iel=0:v«=Cm»l2391tCH 
l»(248l:MO0E l:B0tDEI 0:1* 0,0: 1 NK 

1,0: IW 2,0:INK 3,0:I4=11:GOSUB 37 


140 VIE=8:TA=1:SC0BE=0:PL0T 96,64,3 >WB 
:0BAÏ 96,332:D*Atf 116,352:DBAK 524, 
352:DSAU 544,332:H1AU S44,B4:DtA» 5 
24,64:DtAN U6,64:0tAU 96,84 
150 PLOT 130,110:DMW 130.312:0BAU >HK 
510,312:0U« 510. 110:DBAÏ 130,110 
160 OKieiN 100,100:FILL 1 )TG 

170 G0SUB 1370 XM 

180 PEN 1:L0CATE 14,8:P«INT"SC00TES >PE 

SPACIAL* 

190 PEN 3:L0CATE 14,9:PIINT STIINCt >LV 
(15,154) 

200 PEN liLOCATE 12,ll:Plllfm- ■;: >YC 
PEN 2:PBINT"J0UEI" 
210 PEN 1:L0CATE 12, 13 :PS 1NT- : ■;: XY 



PEU 2:PEINT*IHSTSUCTI0N* 

220 PEU 1:L0CATE 12,15:P1INT*I- ":: >M 

PEU 2:PRIHT'CH0II CUVIEI/JOT' 

240 PEU 1:L0CATE 11,I4:PIIHT CHB»(2 >FQ 

27) 

24S 1NK 1,6:11* 2,26: IMC 3,2:0UT 46 >T0 

128,1:0UT 48384, 1:F08 h=0 TO 40 STE 

P 2:0UT 48384. h: FOI b=l TO 60:«n 

b,h 

250 IF IMKEÏ(OI=0 AND I4>12 THEN PI ><JI 

00= 2:G0T0 290 

2S5 IF INKET<72)=0 AH) I4>12 THFJ P >!£ 

IOD=-2:GOTO 290 

260 IF IMKEYI2I-0 AMD I4<15 THFJ PB >0A 

0D-2:60TO 290 

265 IF 1NKETI 731=0 AND I4<15 THE* P >1F 

B0D=2:GOT0 290 

270 IF 1NKEY(47>=0 08 IHKEV(76)=0 T >KF 

HFJ 320 

280 GOTO 250 >Z0 

290 LOCATE il,I4:PBINT" M4=I4»PB0 >IL 

D:PEN 1: LOCATE U,I4:PBIHT CHU (227 

) 

300 FOI 1=1 TO 50:HEXT >QT 

310 IF HKETBO" THFJ 310 ELSE 250 >AU 

320 IF 14=11 THE* QBIGIH 0,0:GOTO 4 >DP 

20 

330 IF 14=13 THEU GOSUB 2050 >VI 

340 IF 14=15 THEU COTO 1230 >UB 

360 GOTO 250 >ZC 

370 PAPES 2:PEH 3:F0i A=l TO 40:L0C >JW 

ATE A,1:P1INT CHM1233):HUT 

360 FOI A=l TO 4O:L0CATE A,24:PIIKT >0H 

CHI»1233):HQT 

390 FOI A=l TO 23:L0CATE l.A:PIINT >TH 
CHI«(233):M3T 
400 FOI A=l TO 23:L0CATE 40,A:PIINT >C0 

CHB» ( 233 ):I6IT: PAPES 
410 8ETU8K >ZA 

420 'IHIHHHIIHHHtMHHIIIII )|G 

Iflll 

430 '• DESSIN TABLEAUX >BH 



440 'IIIIHHIIHHHIIHIIIIHIIII >|J 
llll 

450 nr--INT(INDil2)»6:FOI h=40 TO MIT 
STEP 2:0UT 46128, 1:0UT 48384, h: FOI 
b=l TO 60:NFJT b,h 

455 MODE 1:1F Ubl=7 THEN FOI etoll >JK 
î=l TO 1O0:i=INT(IMDi640I:ï=INT(IND 
•300I:PLOT i.y, HtT(WD«lHl:y=350:i 
=400:IINDO« , I2 > 2,24,5,20:PAPEII2,0:P 
EN»2,0:CLSI2:NETr 
460 IF TABDU THEN TABL=1 >UH 




470 IF TABL=1 THEN l* 2.9: l« 0,0: >AA 

d=20:i=3S0:i=580:)=175:k=4O4:ll=0:y 

t 0:p=580:BESTOB£ 930 

460 IF TABL=2 THEN IMC 2,26:e=350:d >W 

=550:ib=37: 1=580: |=220:k=340:yb=12: 

il=0:yl=0:p=580:y>=CHB»l240>>CH8«(2 

42):B£ST0BE 970 

490 IF TABL=3 THEN INK 2,15:e=350: >BH 

d-50:lb=38:i=580:|=270:k=2S2:p=580: 

il=0:yl=0:v»=CHI«(239XCHM(248):IE 

ST08E 1020 

500 IF TABL=4 THEN INK 2,10:e=3S0:d >DD 

=550:ib=37:i=420:l=160:k-164:yb=12: 

ll=0:yl=0:p=420:yl=CHBI(240)»CHBIl2 

42):IEST0IE 1680 

510 IF TABL=5 THEN INK 2,l:e=350:d X3t 

=550:ib=37:i=470:|=160:k=150:yb=12: 

ll=0:yl=0:p=470:y»=CHB»(240)»CHBI(2 

42I:BEST08E 1800 

520 IF TABL=6 THEN INK 2,14:e=3S0:d >B8 

=20:ib=37:i=620:1=145:k=264:yb=12:i 

l=0:yl=0:p=520:y»=CHM(239)«CHI»l24 

6):IESTNE 1900 

530 IF TABL=7 THEN INK 2,17:e=350:d >IZ 

=40:ib=37:i=300:t=145:k=156:yb=l2:i 

l=0:yl=0:p=300:v»=CHB»<239>»CHSII24 

B):8£ST0BE i960 

540 IF TABL-8 THEN 1400 >QP 

575 IF Ubl=l THEN FOI etoile=l TO >DH 

100:i=INT(INDi640):y=INT(iNDi300l:P 

LOT i.y,INT(MDtl)«l:y=3SO:i = 18:NEI 

T 

577 LOCATE 1,25:PIINT STIINGII40.12 >PG 

8):L0CATE 1,24:PIINT STBINGI140, 128 

l:L0CATE 1,23:PIINT STHKK40.1») 

rLOCATE 1.22:PIINT STBINC«(40, 1281 

580 IEAD A.I,PN,L,C:IF A=-l THEN 59 > BU 

ELSE LOCATE B,A:PEN pN:P8INT STBI 
NM(L,CI:COTO 580 

590 OIICIN 0,0:PEN 2:L0CATE 4,23:PI >PU 
INT'SC:';SCore:LOCATE 4,24:PIINT'TA 
B';TA:LOCATE 30,22:PIINT CHBX239H 
CH1»(248I;ÏIE:L0CATE 30,24:F=576:PI 
INT'FUEL:':LOCATE 3S,24:PilNT F 
600 PAPES 2:PEN 3:F0I a=l TO 40:L0C )DI 
ATE a,4:PIINT CHB»(233):NE1T:F0B a- 

1 TO 40:LOCATE a,21:PIINT CHB4I233) 

on 

605 FOI 4=4 TO 24:L0CATE l,a:PBINT >W 

CHM(233>:NEIT:F0I a=4 TO 24:LOCAT 
E 40,a:PBINT CHB» 1 233 1 : NEIT : FOB a=2 

TO 39:L0CATE >,25:P1INT CHBX233): 
NFJT:LOCATE 12,22:PIINT CH8»(233):L 
OCATE 12,23:PIINT CHM(233):L0CATE 
12,24:PIINT CHS» 12331 



606 LOCATE 26,22:FIINT CHM(233I:L0 >FF 
CATE 28.23:PIIHT CHM(233):L0CATE 2 
8,24:PIINT CHE41233) :PAPEB 0:PEN 1: 
LOUTE 13,22:P8INT STIING»(15,143I: 
LOCATE 13,23:PIINT STIING«15,143): 
LOCATE 13,24:P8INT STIIN»(15.143I: 
LOCATE 13,23:PAPEB 1:PEN 3 

607 PBINT'SCOOTEB SPACIALVPAPEI 0: >«H 
OUT 48126, 1:0UT 48384,1: FOI h=0 TO 

40 STEP 2:0UT 48384, h:FOB b=l TO 60 

:NFJT b,h 

610 '•ffliiiiiiiiiifiiliaiiiiitfiiii )8H 

Itlt 

620 '■ BOUCLE PBINCIPALE >BJ 

i 
630 'timiifiiiitiiiitiiMiiiiit*! >8K 

Hll 

640 PEN 2 :TAGOFF: LOCATE 1,2:P8INT"F >ZE 
Ua:':PEN 2:PEN 3:L0CATE 5,2:PIINT 
STHNG»(36,H3):i=d:y=e:ib=l:yb«t 
650 PIINT CHM123)CHB»(1I;:TA6 >TI 

660 PLOT -2, -2,3:1F f<=0 THEN GOSUB )PI 

860:G0T0 720 
670 IF |el=0 THEN t=t»l:IF 14 THEN >0V 

t=0:GOSUB 860 

680 IF INKEïl 441=0 THEN GOSUB 1760 >W 
690 IF INKEY(J3>=0 THEN SOUND 130,0 >JD 
,0.8,1. ,20:|el=0:G0SUB 830:1F »<6 
THEN is=m*2 

695 HOVE ib,yb:P8INT CHB»(1S4)«CHM )JE 
(1541; 

696 IF ib=p THEN ib=ib«16:H0VE ib.y >EH 
b:PBINT CHB«(154l;:ib=p 

697 ib=ib-l6 XH 
700 IF INKET()2)=0 THEN SOUND 129,0 >KK 
, 0,8,1,, 20:iel=0:G0SUB 830:1F n>-8 

THEN ii=ii-2 

710 IF INKET(|1)=0 THEN SOUND 132,0 >KE 
,0,8,1, ,30:jel=0:G0SUB 830:1F ys>-6 

THEN ys=yj-l 

715 IF k=ib THEN ib=ib<16:N0VE ib, >FF 
yb:PIINT CHM(154);:ib=i 
720 i=ms:y=y-ys >NT 

730 IF y) 350 01 y<34 THEN y 3=0 >VG 

740 IF l>606 THEN i=60B:is=0 >WV 

750 IF l<0 THEN 1=0:19=0 >B0 

760 IWVE il.yl -16:PIINT v« : )W 

770 HOVE i.y-16:PBINT «»; >UV 

780 IF |el=0 THEN te=TEST(i-2,y 34) >H 

01 TEST(i»18,y-34) 01 TEST(«-2,y-l 
6) 08 TEST(nlB,y-16) 01 TEST1H34, 
y-22) 01 TEST(it34,y-28):IF te)l TH 
EN 1060 

790 IF |el=0 THEN IF TEST(l*2,y-32) >HÏ 
=1 AND TEST(i«28,y-32)=l AND ys<3 T 




HEM Ubl=tit)l<l:SCore=SCore«100:TA- 

TA»1:B0BDEB 0:&0T0 450 

800 il=i:yl=y:IF «150 MO ff=0 THE >DV 

M GOSUB 820 

810 GOTO 660 >ZH 

820 tl=l:EVEB» 50,3 GOSUB BS0:8ETU! >EL 

N 

830 IF 1)0 THEK l=f-2:H0VE 1*64,368 >KI 

:DIAUB 0,1»,3:TAGOFF:LOCATE 35,24:P 
B1HT F:TAG 

840 BETU8K >ZH 

850 BFTU8N >ZJ 

860 IF u)=2 THEK H'Il-la >*L 

870 IF n<=-2 THEN H=l««ln >VA 

880 IF ys<!6 THEK ys=yjtpe >VB 

890 tfTUSH )AC 

900 •IMHHIIHIHIIimilll >BK 

llil 

910 '• TABLEAUI No 1 2 et 3 >TA 

i 
920 '"HiminnmmnminiH )TB 
IMfl 

930 DATA 11,2,2,1,215,12,2,2,1,143, >TI 

12,3,2,1,215,12,20,2,1,214,12,21,2, 

1,215,12,22,2,1,214,12,23,2,1,215,1 

3,2,2,2,143,13,4,2,1,215,13,19,2,1, 

214, 13, 20, 2, 4, 143, 13, 24, 2, 1, 215 

940 DATA 14,2,2,3,143,14,5,2,1,215, >IF 

14,8,2,1,214,14,9,2,1,215,14,18,2,1 

,214, 14, 19,2,6, 143, 14,25,2, 1,215, 15 

,2,2,4,143,15,6,2,1,215,15,7,2,1,21 

4,15,8,2,2,143,15,10,2,1,215 

950 DATA 15,17,2,1,214,15,18,2,6.14 >«D 

3, 15,26,2, 1,215, 16,2,2,9, 143,16, 11, 

2,1,215,16,16,2,1,214,16,17,2,10,14 

3,16,27,2,1,215,16,33,2,1,214,17,2, 

2, 10, 143, 17, 12,2, 1,215, 17, 15,2, 1,21 

4, 17, 16,2, 12, 143, 17,28,2, 1,215, 17,3 

2,2,1,214,17,33,2,1,143 

960 DATA 18,2,2,11,143,18,13,2,1,21 )DJ 

5,18,14,2,1,214,18,15,2,14,143,18,2 

9,2,1,215,18,31,2,1,214,18,32,2,2,1 

43,19,2,2,32,143,19,34,3,1,246,19,3 

5,1,4,143,19,39,3,1,247,20,2,2,32,1 

43, 15,39,1, 1,2U, -1,0,0,0,0 

970 DATA 5,2,2,32,127,5,39,2,1,127, >VA 

6,2,2,4,127,6,6,2,1,212,6,16,2,1,21 

3,6, 17,2, 17, 127,6,39,2, 1, 127,7,2,2, 

4,127,7,17,2,17,127,7,39,2,1,127,8, 

2,2,4,127,8,17,2,16,127,8,33,2,1,22 

6,8,39,2,1,127 

980 DATA 9,2,2,4,127,9,17,2,6,127,9 >ND 

,23,2,1,212,9,39,2,1,127,10,2,2,4,1 

27,10,17,2,6,127,10,39,2,1,127,11,2 

,2,4. 127, 11, 10,2,3, 127, 11, 17,2,6, 12 



7,11,39,2,1,127 

990 DATA 12,2,2,4,127,12.10,2,3,127 >VA 

, 12, 17,2,6, 127, 12,38,2, 1, 127, 13,2,2 

,4, 127. 13. 10,2,3, 127, 13, 17,2,6, 127, 

13,28,2,1,214,13,29,2,11,127,14,2,2 

,4,127,14.10,2,3.127,14.17,2.1,226, 

14,18,2,4,127,14,22,2,1,226,14,28,2 

,12,127 

1000 DATA 15,2,2,3,127,15,5,2,1,226 >H> 

,15,10,2,3,127,15,28,2,12,127,16,2, 

2,2, 127, 16,4,2, 1,226, 16, 10,2,3, 127, 

16,28,2,12,127,17,2,2,1,127,17,3,2, 

1,226,17,10,2,3,127,17,28,2,12,127, 

16,2,2,1,127,18,9,2,1,214,18,10,2,3 

,127,18,13,2,1,215,16,28,2,12,127 

1010 DATA 19,2,2,1,127,19,3,3,1,246 >LH 

,19,4,1,4,143,19,8,3,1,247,19,9,2,3 

1,127,20,2,2,1,127,20,9,2,31,127,18 

,27,2,1,214,12,38,2,1,214 

1015 DATA 15,18,2,1,224,15,19,2,1,2 >LF 
25,15,20,2,1,226,15,21,2,1,225,9,23 
,2,1,224,9.24,2,1,225,9,25,2,1,226, 
9,26,2,1,224,9,27,2,1,226,9,28,2,1, 
225,9,29.2,1,224,9.30,2,1,225.9,31, 
2,1,224,9,32,2,1,226,9,32,2,1,226,1 
2,38.1,1,244 

1016 DATA 6,6,2,1,224,6,7,2,1,225,6 >BU 
,8,2,1,226,6,9,2,1,224,6,10,2,1,225 
,6,10,2,1,226,6,11,2,1,226,6,12,2,1 
,225,6,13,2,1,224,6,14,2,1,226,6,15 
,2,1,225,6,16,2,1,226,-1,0,0,0,0 

1020 DATA 5,2,2,1,127,5,8,2,32,127, >TD 

6,2,2, 1, 127,6,8,2, 12, 127,6,20,2, 1,2 

12,6,39,2,1,213,7,2,2,1,127,7,6,2,1 

2, 127,6,2,2, 1, 127,8,8,2, 12, 127,9,2, 

2,1,127,9,8,2,12,127,10,2,2,1,127,1 

0,6,2,1,226,10,9,2,11,127,10,25,2,3 

,127,10,32,2,3, 127, 11, î.2,1, 127 

1030 DATA 11,3,2,1,215,11,15,2,5,12 >AB 

7,11,25,2,3,127,11,32,2,3,127,12,2, 

2,2,127,12,4,2,1,215,12,15,2,5,127, 

12,25,2,3,127,12,32,2,3,127,13,2,2, 

3,127,13,5,2,1,215,13,15,2,5,127,13 

,25,2.3.127,13,32,2,3,127,14,2,2,6, 

127,14,10,2,1,215 

1040 DATA 14,15,2.5,127,14,25,2,3,1 >UP 

27, 14,32,2,3, 127, 15,2,2,9, 127, 15, 15 

,2,1,226,15,16,2,4,127,15,19,2,1,22 

6,15,25,2,3,127,15,32,2,3,127,16,2, 

2,9,127,16,25,2,3,127,16,32,2,3,127 

, 17,2,2,9, 127, 17,25,2,3, 127, 17,32,2 

,3,127 

1050 DATA 18,2,2,10,127,18,11,2,1,2 >AE 

15,16,24,2,1,214,18,25,2,3,127,18,2 

8,2,1,215,18,31,2,1,214,18,32,2,3,1 



27,18,35,2,1,215,19,2,2,34,127,19,3 
6,3, 1,246, 19,37, 1,2, 143, 19,39,3, 1,2 
47,20,2,2,34,127 

1055 DATA 6,20,2,1,224,6,21,2,1,225 >ZY 
,6,22,2,1,226,6,23,2,1,224,6,24,2,1 
,225,6,25,2,1,226,6,26,2,1,225,6,27 
,2,1,226,6,28,2,1,224,6,29,2,1,225, 
6,30,2,1,226,6,30,2,1,224,6,32,2,1, 
225,6,33,2,1,226,6.34,2.1,225,6,35, 
2,1,226,6,36,2,1,224,9,39,1,1,244 

1056 DATA 6,37,2,1,225,6,38,2,1,224 >DC 
,6,39,2,1,226,6,31,2,1,224,11,9,2,1 
,225,11,10,2,1,226,11,11,2,1,224,11 
,12,2,1,225,11,13,2,1,226,11,13,2,1 
,224,11, 14,2,1,225, 16,16,2, 1,224. 16 
,17,2,1,225,16,18,2,1,226,-1,0,0.0, 



1060 • nini.ininm ,-ik 

Mil 

1070 '• VIE -1 >TA 

i 
1080 '■iilllllllltlflltllllllllfllll >YB 
mi 

1090 vle-vte-1 )ZD 

1100 ' >H 

1110 HOVE I,y-16:PB1HT CHM(148>»CH >GF 
BI(14B);:TAG:INK 0,0:SPEED INK 5,5: 
BOBOEB 0,26: INK 0,0,26:OVT UCOO.. 
DUT tSD49,49:S0UH> 4,7O0,5O,9,9,9:F 
(H t=l TO 400:NEn:0UT UC00,2:0UT 
IBD4S,46:B0ID£B 0: INK 0,0:«OÏE l,y- 
16:PIINT vl; 

1120 HOVE l,r-16:PRINT CHB«148)tCH >TV 
81(148) ; :<3=0:ys=0:y=e:i=d:t=0:il=0 
:yl=0:jel=0:TAGOFF:LÛCATE 33,22:PBI 
NT vle:PEN 2:TAG0FF:10CATE 1,2:P1IN 
T'FUELi'^EN 2:PEN 3:L0CATE 5,2:f=5 
76:PBINT STBINM(36,143I:L0CATE 35, 
24:PBINT 1 

1130 IF vle=0 THEN 1150 MK 

1140 GOTO 650 >FC 

1150 'iiftflitiftttittiiiMflitifliiii >IK 
mi 

1160 '■ GAME OVEB >TA 

l 

1170 ' HHHHIIIlilIlllllllllllHI >YB 
lllt 

1180 LOCATE 1,2:PBINT 5TKINGII40, 12 >0E 
8):PEN 0:L0CATE 1,1:PBINT BElUINdl 
:PEN 3:«»="GAIIE/0ÏEB":F0B A=l TO 1 
STEP 30:F0B K=l TO LENIA») :C=*0956i 
(1ASC<HID»(A«,N, 11 1-32)18) :D=C:FOB 
N=42732 TO 42746 STEP 2:B=PEEK(C) 
1190 ON INT(A/3«1) GOSUB 1210:C=CU >JJ 
:NETT:LOCATE N«(IUHO),A:PIINT CHS» 




(254)CHR«(S)CHE*<10>CH>»(255):NErr: 
KIT: 

1200 FOt t«l TO 6000:»EIT:RUN >IG 

1210 POKE N,B:POKE IH1,B:BETUBN >AD 

1220 'lllllllimiimillllllllllll >IH 
III 

1230 'l CHOU CLAVIQ OU JOYSTICK >LI 

• 
1240 'mmiiiiiiiiiiiiniiiiiiiu )IX 
lit 

12S0 LOCAIE 12,U:PIIHT STBIMGK20, >G0 
1281 

1260 LOCATE 12, 13.-PR1NT STSIMGK20, >Gtl 
128) 

1270 LOCATE 12,1S:PIIKT S7SIMGK20, >G1 
128) 

1280 LOCATE 10,17:PBINT STB1NG4122, >GA 
128) 

1290 LOCATE 10,13:PBINT"J0ÏSTICK >BU 
CLAÏI EB': LOCATE 11. 15:PB1NT' ■ 
1300 PEU 3:L0CATE 10, 16:PB1MT* (1) >NJ 

<2>' 
1310 IF IMKET(13I=0 THE» J»72iJ2>7 >GQ 
4:J3=75:J*=?6:CLS:G0T0 100 
1320 IF INKETU4I THE* J1=0:J2=8: >CB 
J3=l:J4=4(:CLS:GOT0 100 
1330 GOTO 1310 >LK 

1340 LOCATE 10,13:PBINT STSING»(22. >GT 
128) 

1360 LOCATE 10. 16:PBIMT STB1HG((22. XI 
128) 

1360 GOTO 200 >EH 

1370 PEU 3:L0CATE 12,20:PAPFJ l:Ptl >GV 
NT CHB»170I»CH»»(B2HCHB«(6SHCHB»( 
6B)«CHi«l69)<CHM(82XCKI«(73)<CHM 
(67HCHB«(46HCHM<74)tCHM<85)tCHR 
«<76MCHB$(73>tCHB»(69HCHBI17B):PA 
PEU 

1380 BETUBH >FF 

1390 'iiiiiiHiiiiiiiiiiiiHiitiiti >TF 



1400 •! 



GAGNE 



>m 



)LI 



1410 '1111111111111111111111 

if 

1415 PEN 1:H0DE 0:LOCATE 10,23:P8IN >ZH 
T CHB»(214)»CHBI(215) 
1420 PLOT 30,270:D8AU 70,270:DBAU 7 >AH 
0,300:DBAU 50,300:DBAU 50,290:DBAU 
60.290:0BAU 60,280:DCAU 40,280:DMV 
40,320:DBA« 70,320:DBAV 70,330:DtA 
Il 30,330:DBAU 30,270:PL0T 130.270:0 
RAV 130,330:DBAU 180,330:DMV 180,2 
70:DBAU 170,270:DBA» 170,290 
1430 DBAU 140,290:DEAU 140,270:DBAU >IT 



130,270:PL0T 170,320:DBAU 140,320: 
DBA» 140,300:DBA» 170,300:DBJUI 170, 
320:PL0T 240.3O0:D8AB 260, 300: DBA V 
260,270:OBAW 220,270:DBAU 220,330:0 
BAU 260,330:DtAII 260,320 
1440 DBAU 230,320:DMB 230,280:DBAU X1L 

250,280:DBAU 250,290:DBAy 240,290: 
DBAU 240,300:PLOT 3I0,270:DBAU 310, 
330: DBAU 360,290:DBAU 360,330:OBAU 
370,330:DBAU 370,270:DBAU 320,310:0 
BAB 320,270:DBAU 310,270:PL0T 460,2 
70:DBAU 420,270:DBA» 420,330:DtAII 4 
60.330 
1450 DBAU 460,320:DBAB 430,320:DBAU >0K 

430,305:DBAU 445.305:DBAU 445.295: 
DBA» 430,295:DBAU 430,280:DBAU 460, 
2B0:0GAW 460.270:UIND0WB3, 1, 25,10,2 
2:PAPEBI3,0:PENI3,0:CLSI3:PAPEB 0:0 
UT 48128. 1:0UT 48384,1:F0B h=0 TO 4 
STEP 2:0UT 48384,h:F0B b»l TO 60: 
NEIT b,b 

1460 FOB t=l TO 5000:NEIT:PL0T 320, >GT 
49: DBAU 80,250:0BIGIN 50,27S:FILL 1 
:OBIGIN 0,0:CLSI3:F0( t=l TO 1000:N 
EIT:PLOT 320,49:DBAU 170,250:OBIGIN 

160,295:FILL 2:0BIGIN 0,0:CLSI3:F0 
B t=l TO 1000:HEXT:PL0T 320,40:IKAU 

250,250:OBIGIN 240,275:FILL 13:CLS 
13 

1470 OBIGIN 0,0:FOB t=t TO 1000:NEI >JG 
T:PLOT 320,49:DBAU 350,2SO:OBIGIN 3 
15,290:FILL 7:CLSI3:0BIGIN 0,0:FOB 
t=l TO 1 000 :«EIT: PLOT 320,49:DBAU 4 
40,250:0BIGIN 440,27S:F1LL 8:CLSI3 
1480 PEN 2:SPEED INK 5.5: INK 1,3,26 >VK 
: IMK 2,26.3: INK 3,9,6:INK 4,6,16:IN 
K 5,16,6:INK 6.9.3: IMK 7,26,8: INK 8 
,14,2: INK 9,3,6:L0CATE 10,23:PBHrT' 
■:FOB A=l TO 5000:NEIT:FOB T»15 T 
50:LDCATE 1,T:PBINT CHB«(128):S0U 
ND l,T,50,9,B:NEn 

1490 SC0BE=SC0BE«90000:H00E 1:INK 1 >KN 
,26:INK 2,2: INK 3, 6: PEN 1:L0CATE 14 
.l-PBINT'FELICITATIONVLOCATE 1,3:P 
BINT'VOUS AVEZ BEUSSI A VOUS FAIRE 
ENGAGE VOTRE SCOBE S'ELEVE AVIOCAT 
E 14,14:PEN 2:PAPEB 3:PBINT*SC0BE'; 
SCOBE:SPEID INK 5,5: INK 2.6.2: 1 MK 3 
,2,6 

1500 PAPEB 0:F0B T»J TO SO0O:NEIT:B >EB 
UN 

1650 'iiiiiiiiiiiiiiiiillllllilllu >TE 
■ m 
1660 'l TABLEAU No 4 >TF 



1670 'iiHiitiiiiiiHiiiiiiiiiiiiii >TG 

mi 

1680 DATA 5,2,2,33,127,5,39,2,1,127 )EK 

,6,2,2,10,127,6,27,2,8,127,6,39,2,1 

,127,6,12,2,1,226,6,26,2,1,226,7,3, 

2,1,226,7,6,2,1,226,7,7,2,4,127,7,2 

,2,1,127,7,11,2,1.226,7,27,2,1,226, 

7,28,2,7,127,7,39,2,1,127,8,28,2,1, 

226,8,29,2,6,127,8,34,2,1,226,8,39, 

2,1,127 

1690 DATA 6,2,2,1,127,8,2,2,1,127,9 >AU 

,39,2,1,127,10,2,2,1,127,10,15,2,1, 

214,10,16,2,9,127,10,25,2,1,215,10, 

38,2,1,214,10,39,2,1,127,11,7,2,1,2 

14,11,8,2,32,127,11,2,2,1,127,12,7, 

2,1,226,12,8,2,18,127,12,26,2,1,226 

1700 DATA 13,13,2,1,226,13,14,2,7,1 >TL 

27,13,21,2,1,226,12,2,2,1,127,13,2, 

2,1,127,14,2,2,1,127,14,14,2,1,226, 

14, 15, 2, 5, 127, 14, 20, 2, 1, 226, 14, 30, 2 

,1,214,14,31,2,2,127,14,33,2,1,215, 

15,2,2,1,127,15,3,2,1,215,15,30,2,4 

,127,16,2,2,9,127,16,11,2,1,215 

1710 DATA 16,29,2.1,214,16,30,2,4,1 >UL 

27, 16,34,2, 1,215, 17,2,2, 10, 127, 17,2 

0,2,1,214,17,21,2,14,127,17,35,2,1, 

215,18,2,2,10,127,18,19,2,1,214,18, 

20,2, 16, 127, 19, 2,2, 10, 127, 19, 12, 2, 1 

,215,19,18,2,1,214,19,19,2,17,127 

1720 DATA 19,36,3,1,246,19,37,1,2,1 >BI 

43,19,39,3,1,247,20,2,2,34,127,16,2 

8,1,1,244, 1.0.0.0.0 

1730 'IMMIMIMIMMIIIIMMHIM >TD 

III 

1740 '• PAUSE >TE 

i 
1750 'Hiiiiiiiiiiiiiiiiiiiiiiiiiii >YF 
m 

1760 LOCATE 14,3:TAG0FF:PEN 2:PBINT >0I 
■PAUSE" 

1765 IF INKEÏ(45)=0 THEN LOCATE 14, >UA 
3:PBINT STBINGI(9.12B):TAG:IETUBN 

1766 GOTO 1765 >PG 
1770 'illiiliilliiillllllilllllllll >TH 
III 

1780 '• TABLEAU No S >TJ 

i 
1790 'iilllllllilllllllllllllllllll >TK 
m 

ÎBOO DATA 5,2,2,33,127,5,39,2,1,127 >JV 
,6,2,2,1,127,6,3,2,1,224,6,4,2,1,22 
5,6,5,2,1,226,6,5,2,1,224,6,2,2,1,2 




25,6,7,2,1,226,6,6,2,1,224,6,9,2,1, 

224,6, 10,2,1,225,6, 11,2, 1,226,6, 12, 

2,1,225,6,13,2,1,226,6,6,2,1,224,6, 

14,2,1,225,6,15,2,1,226,6,16,2,1,22 

4 

1810 DATA 6,2,2,1,127,6,20,2,1,226, >HG 

6,25,2,1,226,6,26,2,9,127,6,39,2,1, 

127,6,17,2,3,127,7,2,2,1,127,7,17,2 

,2,127,7,19,2,1,226,7,26,2,1,226,7, 

27,2,8,127,7,39,2,1,127,6,2,2,1,127 

,8,16,2,1,214,8,17,2,1,127,6,16,2,1 

,226,8,27,2,1,226,8,28,2,6,127,8,34 

,2,1,127 

1620 DATA 8,39,2,1,127,9,2,2,1,127, >EV 

9,9,2,1,214,9,10,2,1,127,9,11,2,1,2 

15,9,16,2,1,127,9,17,2,1,226,9,39,2 

,1,127,10,2,2,1,127,10,3,2,1,215,10 

,9,2,3,127, 10, 16,2, 1, 127, 10,21,2, 1, 

214, 10,22,2, 1,127,10,23,2, 1,215, 10, 

39,2,1,127 

1630 DATA 11,2,2,2,127,11,4,2,1,215 >TB 

,11,9,2,3,127,6,11,2,1,127,11,21,2, 

3,127,11,24,2,1,215,11,16,2,1,127,1 

0,39,2,1,127,11,38,2,1,214,11,39,2, 

1, 127, 12,2,2,3, 127,12,5,2,1,215, 12, 

9,2,1,213.12,10,2,2,127,12,16,2,1,1 

27,12,21,2,1,213,12,22,2,18,127 

1840 DATA 13,2,2,4,127,13,10,2,1,12 >CB 

7,13,11,2,1,212,13,16,2,1,127,13,17 

,2,1,215,13,31,2,9,127,14,2,2,4,127 

,14,10,2,1,127,14,16,2,1,213,14,17, 

2, 1, 127, 14, 16,2, 1,215,14,31,2,9, 127 

,15,2,2,4,127,15,10,2,1,127,15,17,2 

, l, 213, 15, 16,2,9, 127, 15,27,2, 1,215 

18S0 DATA 15,31,2,1,213,15,32,2,8,1 >TB 

27, 16,2,2,4, 127, 16, 10,2,1, 127,16,32 

,2,8,127,17,2,2,4,127,17,10,2,1,127 

,17,32,2,8,127,18,2,2,4,127,18,10,2 

,1,127,18,11,2,1,215,18,31,2,1,214, 

18, 32, 2, 6. 127, 19, 2, 2, 4, 127, 19, 10, 2, 

30,127 

1660 DATA 20,2,2,4,127,20,6,3,1,246 >HU 

,20,7,1,2,143,20,9,3,1,247,20,10,2, 

30, 127, 16,31,1, 1,244,-1,0,0,0,0 

1870 'HIHIIIIIIIIIKIIHIIKIIHI >TJ 
iff 

1680 '• TABLEAU No 6 >TK 

l 
1890 'mmmmmmiimmm >u 
m 

1900 DATA 5,6,2,1,127,5,22,2,2,127, >UG 
6,6,2,1,127,6,22,2,2,127,7,6,2,1,12 
7,7,22,2,2,127,8,6,2,1,127,8,7,2,1, 



215,8, 14,2, 1,226,8, 15,2,2, 127,8, 17, 

2,1,226,8,22,2,2,127,9,6,2,1,213,9, 

7,2,4,127,9,10,2,1,215,9,15,2,2,127 

,9,22,2,2,127,9,28,2,7,127,9,35,2,1 

,215 

1910 DATA 10,10,2,1,127,10,15,2,2,1 >Lt 

27. 10.22.2. 1.213. 10.23.2.1. 127. 10.2 
8,2,1,226,10,29,2,7,127,11,10,2,1,1 
27,11,15,2,2,127,11,22,2,1,214.11,3 
4,2,1,213,11,35,2,1,127,11,23,2,1,1 
27,12,10,2,1,127,12,15,2,2,127,12,1 
7,2,1,215,12,22,2,2,127,12,35,2,1,1 
27 

1920 DATA 13,2,2,4,127,13,6,2,1,226 >HT 

,13,10,2,1,127,13,15,2,3,127,13,22, 

2,2,127,13,24,2,1,215,13,35,2,1,127 

,14, 10,2, 1,127, 14, 16,2,3, 127, 14,22, 

2,8,127,14,30,2,1,215,14,35,2,1,127 

,15,10,2, 1, 127, 15, 15,2,3, 127, 15,22, 

2,9,127,15,35,2,1,127 

1930 DATA 16,10,2,1,127,16,15,2,3,1 >IG 

27,16,22,2,1,213,16,23,2,7,127,16,3 

0,2,1,226,16,35,2,1,127,17,5,2,1,22 

6,17,6,2,4,127,17,10,2,1,226,17,15, 

2,3,127,17,35,2,1,127,19,14,2,1,214 

,19,15,2,3,127,19,18,2,1,215,19,34, 

2,1,214,19,35,2,1,127 

1940 DATA 18,15,2,3,127,18,35,2,1,1 >NN 

27. 19.36.3. 1.246. 19.37. 1.2. 143.19.3 
9,3,1,247,20,2,2,34,121,17,34,1,1,2 
44,-1,0,0,0,0 

1950 ■•• minium >TH 

lllf 

1960 'i TABLEAU Mo 7 >1J 

i 
1970 'mmmmmmiimmm >TK 
lut 

i960 DATA 5,2,2,1,127,5,7,2,18,127, >JT 
6,2,2,1,127,6,7,2,18,127,7,2,2,1,12 
7,7,7,2,1,213,7,8,2,17,127,8,2,2,1, 
127,6,10,2,1,213,8,11,2,14,127,9,2, 
2,1,127,9,12,2,9,127,9,21,2,1,212,1 
0,2,2,1, 127,10,3,2, 1,215, 10, 12,2,9, 
127 

1980 DATA 11,2,2,6,127,11,6,2,1,215 >IQ 
, 11, 12,2,9, 127, 12,2,2,7, 127, 12, 12,2 
,9,127,13,2,2,7,127,13,13,2,1,213,1 
3,14,2,7,127,14,2,2,7,127,14,16,2,1 
,213,14,17,2,3,127,14,20,2,1,212,14 
,24,2,1,214,15,9,2,1,215,15,24,2,1, 
127,15,2,2,7,127 

2000 DATA 16,2,2,8,127,16,10,2,1,21 >FI 
5,16,23,2,1,214,16,24,2,1,127,17,2, 



2,9,127,17,11,2,1,215,17,22,2,1,214 
,17,23,2,2.127,16,2,2.10,127.18,12, 
2,1,215,18,22,2,3,127,19,2,2,23,127 
,19,25,2,1,215.18.21,2,1,214,19.31, 
l.b, 140. 20. 2. 2. 36. 127, 17, 21. 1.1, 244 
2010 DATA -1,0,0,0,0 >« 

2020 'mmmmmmmmimi >IG 



2030 



IHSTtUCTION 



>IH 



2040 'imimmmmmmmm >IJ 
il 

2050 CLS:L0CATE 14,1:PEN ltPlINT'IN )H1 
STBUCTION":L0CATE 1,3:PRIHT"0II EST 

EN L'AN 2050':L0CATE 1,5:PBINT"UN H 
AT IN VOUS DECIDEZ DE VOUS ENGAGES D 
ANS L'AMEE SPAT I ALE" : PEN 3:P8INT'L 
E CHEF DE LA BASE VOUS FAIT PASSE! 
UN TEST: 

2060 PBINT'A L'AIDE D'UN SCOOTEB SP >HN 
ATI AL VOUS DEVEZ DESCENDBE DANS DES 

GALEBIES NAIS AnENTION VOUS NE DE 
VEZ PAS TOUCHE! LES P ABOI S SOUS PEI 
NE DE PEBME UNE VIE IL VOUS FAUDBA 

AUSSI FAIBE ATTENTION AU «ONSTBt Q 
Ul TIBE SANS ABBET POUB VOUS FAIBE' 
2065 PBINT'PEBDBE EGALEHENT UNE VIE >GC 
2070 PBINT'SI VOUS 1 ECHAPPEB VOUS >T0 
N'AUtEZ PLUS QU'A ALLES JUSQU'AU TE 
LE POBTATEUB VOUS POSEB DELICATE»» 
T SUI LA ZONE BOUGE ET VOUS PASSEBE 
Z AU TABLEAU SUIVANT ET AINSI DE SU 
ITE AU DEBNIEB TABLEAU VOUS VOUS PO 
SEBEZ SU8 LA PLATE-FOBKE 
2080 PBINT 'BOUGE ET PUIS SE SEBA G >U1 
AGNE !!!':LOCATE 10.24:PBINT'APPUTE 
B SUB ESPACE POUB CONTINUEB 
2090 IF IIKEÏI47)=0 THEN 2110 )UB 

2100 GOTO 2090 >HB 

2110 CLSlPEN l:LOCATï 1,1:PBINT'LE >HP 
JEU SE COMPOSE DE 7 TABLEAUX ET VOU 
S DISPOSEZ DE B VIES' 
2120 PEN 3:L0CATE 14,14:PBINT'H=PAU >NN 
SEVLOCATE 14. 16:PBINT"J=ENLEVER PA 
USE':LOCATE 14, I8:PBINT'CLAVIEB"-FLE 
CHE' 
2130 LOCATE 10,24:P1INT'APPUTEB SUB >JK 

ESPACE POUB CONTINUEB 
2140 IF INKEÏ(47)=0 THEN 0BIG1N 0, >U 
0:GOTO 100 

2150 GOTO 2140 >IK 

2160 'mm FIN DU SUPER LISTING • )TB 
llll 



EDUCATIF 



"jPwS* 




Valable pour 
«I CPC 464 
m CPC 664 
M CPC 6128 



The way 

of SUCCESS 

Hibou, chou, caillou, genou, 
pou, joujou, bijou, ce n'est pas 

la liste de mes commissions 

mais bien une série d'exceptions 

à la règle des "ous". 



Vincent BOUVELLE 



Bon c'est encore assez simple mais 
si on ajoute les mots composés, cela 
devient rapidement compliqué. Comme 
par hasard, votre mission, en tant que per- 
sonnage informatique est de retrouver le 
pluriel des mots proposés. Vous allez de- 
voir traverser maintes épreuves, entre 
autres un lac, où vous pourrez soit vous 
laisser porter par le courant soit nager en 
fonction de votre conviction en la bonne, 
réponse. 

Au final, Dieu choisira les siens et vous 
enverra soil dans le grand hachoir soit 
en avion portant banderole pour ensuite 
rejoindre le point de départ. 
Vous commencez par régler le niveau de 
difficulté de 1 à 5 puis vous entrez vos 
initiales, le jeu commence alors par la 
traversée de l'eau si vous nagez (grâce à 
espace) vous gagnez 10 points en cas de 
réponse juste. Si votre réponse est fausse, 
vous gagnez point et Dieu en gagne 
20. Si vous décidez de ne pas nager, vous 
ne gagnerez que 5 points (Dieu en ga- 
gne 5 aussi) mais vous n'en perdrez que 
10 en cas de mauvaise réponse. Et n'ou- 
bliez pas que vous n'avez que 3 vies ! 
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FAITES 

LE BON 

CHOIX ! 



INFORMATIQUE 
COMMUNICATION 
DIALOGUE 3615 MHZ 

• Vous trouverez les rubriques suivantes : Toutes 
nos revues. Questions-réponses. Petites annonces. 
Boîte aux lettres. Revendeurs, Nos produits, Horos- 
cope. 

TELECHARGEMENT 3615 ARCADES 

• Que vous soyez possesseur d'un PC ou d'un CPC. 
nous vous proposons plusieurs centaines de pro- 
grammes. 

Au téléphone. 15 mn coûtent en moyenne 55 F 
Par minitel, il vous en coûte pour le même temps 15 F 
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90 WJOt 1 : INh 1,24:1NK Û.O:BOBDEB >JÏ 
:PFJ l:PAPfcJI 0:PB]NT"Avez-vous un e 
cran Couleur ou Honochroae" : LOCATE 
I6,2:IHPUT"lC ou H)\z»:IF UPPEBilz 
•)<>"C"AN0 UPPEBtlztlWH'THEN 90 E 
LSE MODE 1:SYHB0L AFTEB 32! I* 1,0: 
INI 2,0: IHK 3,0 

100 DEFINI A Z:DIH de»(251 :ENV 1,10 >FP 
0,3,1:ENT I.100,2,2:ENV 2,5, 2.1S:E 
NV 3,5,-2,50 

110 SYHBOL 160,24,24,60,90,60,24,24 >VB 
,24:SYHB0L 161, 153, 90,60,24, 24,24, 2 
4,24:SYHB0L 162,46,48,24,124,26,56. 
36,2:STMB0L 163.46,46,28,26,56,26,3 
9,64:SYHB0L 164,12,12,24,62,88,28,3 
6,64:SVHB0L 165,12,12,56,56,28,56,2 
26,2:SÏ11B0L 166,90,90,60,24,56,40,4 
0,8 

120 SVHBOL 167.90.90,90,24,26.28,28 >BP 
,16:SYHB0L 168,0,4,52,28,125,14,2,1 
:5ÏHB0L 169,0,32,44,56,190,112,64,1 
26:STHB0L 170,0,0. 216,59,12:STHB0L 
171,0,0,24,216,56,6:5Tr1B0l 172,0,0, 
",0,255,255, 169,66:STItB0L 173,24,24 
,60,90,255,255,189,66 
130 SYHBOL 174,126,129,153,165,189, >UD 
165, 129,126:SriffiOL 175,24,24,60,90: 
SÏIBOL 176. 0,0,0,1, 4,3.1. O:STHB0L 1 
77,0,0,0, 153,204,255, 255,255:STHML 
178,1, 2,4,8,16,32,64,128:SYIB0L 17 
9,128,64,32,16,8,4,2,I:SVHB0L 180,0 
,126,0,126,0,126,0,126 
140 SVHBOL 181,0.0.0,0,0. 1:SYHB0L 1 >rîT 
82, 12, 28.56, 112,224, 192, 12B:STHB0L 
183,0, 153,90,60,24:STHB0l 184,24,24 
,255,24,24,24,24,24:SYHB0L 185,24,2 
4.126. 90.90, 2». 2«.2»:SYKB0L 187,126 
,240.144,144,136,232,32:SYHB0L 186, 
l.l,l,?,S,5,5.3:SYrlB0L 189,0,1,0,1, 
1 
150 SYHBOL 190,176,64,192:SrWOL 19 >QF 



1,0.0,90,90, 126.24, 24:SYHB0L 192,0, 
0,0. 0,0,137. 137. 74:STHB0L 193,0,0,0 
,8,4,2:SYHB0L 194,0.0,0. 16.32. 64:SY 
HBOL 195,56,252,126,191,207,255,255 
:SYHB0L 196,28,63,126,253,243,255,2 
55:STrHOL 197,0,0,255,0,0,255 
160 SYHBOL 198,0,255,0,0.0,0,255:51 >NT 
HBOL 199. 0.0.60, 60. 60. 60:SïhML 188 
.B5:SYHB0L 200,255,4,14,63,99,127,6 
3,17:SYHBOL 201,224,0,5,2, 149,248:h 
1>=CHB»(204HCHB1(201):SYHBOL 202,3 
1, 4,14,63,99, 127,63:SYHB0L 203,0,0, 
2,7,154,248:h2»=CHR»(202)»CHB«(203> 

170 SVHBOL 204,255,4,14,63,99,127,6 >VT 
3:SYHB0L 205,31,4,14,63,99,127,63,1 
7:n3$=CH««(2O0ltCHR»(201l:SVHB0L 20 
8,31, 228, 14.63, 99, 127, 63. 17:SVM0L 
209,0,224,0,0,128,194,53,26 
180 SVHBOL 220,136,142,143,159,255, >IM 
159,136,8:SV1IB0L 221,63,8,4.255,255 
,255,3,3:SYHB0L 222,244,68,132,244, 
252,244,4,4:av«=CHM(220IKHM(221) 
»CHM<222):df = l:G0SUB 1460 
190 BEST0BE:F0B 1=1 TO 41:BEAD B.C. >0T 
D:PW 1:L0CATE B,C:PBINT STBING11D, 
143):NEIT:F0B 1=1 TO 6:BEAD B,C:LOC 
ATE B,C:PBINT CHB«(213):HEIT:F0B 1 = 
1 TO 10:B£AD B,C:LOCATE B,C:PBINT C 
HB((212):NEIT:F0B 1=1 TO 9:BEA0 B.C 
: LOCATE B.C 

200 PRIMT CHIt(214):NEIT:L0CATE 18, >V 
17:PIIHT CH1«(215):L0CATE 27,7:PtlN 
T C«i»(215li" ■;CHM(214):L0C 

ATE 13, 1B:PB(NT CHB»(215):L0CATE 27 
,B:PBIHT CHBK212); 1 >;CrB»<2 

131 

210 PEU 2:F01 1=1 TO 28:IEAD B.C.D: >VA 
LOCATE B,C:PBINT STBiHGXD, 1*3) :HEX 
T 

220 LOCATE 1 , 1 : Pfi I MT CHBi(22)»CHB«< >JI 
1):IEAD A:FOB 1=1 TO A:IEAD B,C:LOC 
ATE B.C:PBINT CHtt(212):HEIT 
230 FOB 1=1 TO 3:IEAD B,C:LOCATE B, >AH 
C:P8INT CHII1215):NEn:L8CATE 13,18 
:PBIHT CHM(213):LOCATE 19,12:PIINT 
CHi«(2l*):L0CATE 18, 13:PtlNT CHltl 
214):PBINT CHBI(22)»CHfi>(0):L0CATE 
15,24:PEN 1:PBINT CHBK212I :PBINT C 
HR»(22)tCHB»(l! 

240 ph*=-THE VAV OF THE SUCCESS'iU) >HÏ 
CATE 10,1:FOB 1=1 TO LFJ(ph»):FOI t 
=0 TO 7:p=PEEK(HIHHt»l«(ASC(HlD«(ph 



»,).l)l-32H8U):iltl=p:NEIT:SVHB0L 
254,1(01, 1(0), Il 11, •11). ■(21. 1(21. 
■ (31,1(3) :STHB0L 255, 1(4), 1(4), a(5) 
,1(51, a(6), a(6), 1(7), 1(7) 
250 PB1KT CHM(22)tCHB»(l);:PE* 2:P >PP 
R1MT CHBt(254);:PEN 1:PBIHT CHMtlO 
);CH!»(8) iCHB«l255) ;CHB»(11) ; :HEIT: 
PRIMT CHI»(22HCHB»(0> 
260 PBIHT CHBl(22uCHil(il:PEN J:LO >ÛJ 
CATE 18,17:PilKT CHi»(176)tSTÏIKG»l 
17,177):LOCATE 11,17:PBIUT CW«(17B 
i: LOCATE 10,1B:PBINT CHB1I178) 
270 PEN 3:L0CATE 4,12:PBINT CHMI17 >FN 
2 ) : FOB 1=23 TO 24: LOCATE 6.1: PEU 3: 
PBIKT CHBX143HCHBK197H" "tCHi 
*( 198i*CHR*< 1*3) :NEXT:PEN 2:PBINT C 
HB»(22)iCHfit(l):E0B 1=4 TO 17:L0CAT 
E i.l3:PBINT CHt»(188):NFJT 
280 LOCATE 36,6:PEN 3:PBIKT n3»:PL0 >K2 
T 560,302.2:DBAll 590,302:PEN 1:L0CA 
TE 1,5:PBINT CHJtl(214)«CHMll43)*Crl 
fil(21b):PL0T 14,360, IrDBAH 128,350: 
DBAU 128,370:DBAB 14,370:DBAB 14,35 
0:LOCATE 13,21:PEN 1:PBIKT av«:LOCA 
TE 14,23:PEN 2:PBINT CHBX143) 
290 PLOT 510,350:DBAU 624,350:DBAW >NE 
624,370:DIAB 510,370:DBAW 510,350 
300 PEN 2:F0fi (=20 TO 32:LOCATE 1,1 >« 
1:PBIHT CHil(188):NEn:PllNT CHB4I2 
2)»CHM(0):IF UPPER4H») ■■C'THEN IN 
K 1, 15: INK 2.16: IHK 3,11 ELSE INK 1 
, 15: IHK 2,5: INK 3,11 
310 DATA 1,7,1,4,7,23,1,8,1,4,8,1,1 )PN 
8,8,9,1,9,1,4,9,1,1,10,1,5,10,11,1, 
11,1,20,11,13,1,12,1,32,12,1,36,12, 
1,2,13,16,32,13,1,36,13,1,3,14,29,3 
6,14,1,36,15,1,36,16,1,12,17,6,36,1 
7,1,19,18,18,14,19,27,5,20,1,5,21,1 
,5,22,1,13,22,3,5,23,1,13,23,3 
320 DATA 5,24,1,13,24,3,36,9,1,36,1 >BQ 
0,1,36,10,1,36,11,1,36,7,5,36,8,1,2 
,5,1,1,6,1 

330 DATA 4,10,1,13,2,14,12,18,13,19 >FL 
, 18, 18 

340 DATA 17,9,16,10,19,12,18,13,32, >E8 
14,10,15,9,16,8.17,7,18,6,19 
350 DATA 17,8,16,9,9,15,8,16,7,17,6 >UK 
,18.5,19,19,11,18,12 
360 DATA 5,8,12,5,9,11,20,12,12,19, >CB 
13,13,37,12,4,37,13,4,37,14,4,37,15 
,4,37,16,4,37,17,4,37,17,4,37,18,4, 
14,18,4.1,14,1,1,15,8,1,16.7,1,17,6 
,1,18,5,1,19,4,1,20,4,1,21,4,1,22,4 
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,1,23,4,1,24,4,37,8.4,37,9,4,37,10, 

4,37,11,4 

370 DATA 7,17,8,16,9,9,15,8,16,7,17 >KT 

,6,18,5,19 

380 DATA 1.13,2,14,18,18 >QJ 

390 BEN • INITIALISATION l >VG 

400 sc=0:od=0:vl=3:c=0:cpl=0:nol=CH >TL 

B*(22>*CHB»(0):tr«=CHB»(22)«CHB»(l) 

:tANOOHIZE THE 

410 PEU 1 : LOCATE 2.3:PBIKT In* : SOI* >EZ 

D 1, 5,20,1, 1,1,5:L0CATE S,3:PBINT II 

SIHGMIII";sc:LOCATE 33 , 3 : PS I MT-AJ1" 

:LOCATE 36,3:S0UND 1.5,20.1, 1,1, 5:P 

utrr usmcMiiivod 

420 q=B:»=6:n»=":U=ll»:F0fi l=vlTO >NB 

1 STEP-1:L0CATE 41-l,6:PEN 2:PRIHT 

CHB*I160I:NEIT 

430 IF sc)9999 THEN 1800 >QA 

440 cp«=cp«»l:IF cp»=20 THEN cp»=0: >0w 

df=dl»t:FOR 1=0 TO 25:delll)=0:NEIT 

:1F df=5 THEN df=l 

450 IF df -0 THFJ RESTORE 1240 >NU 

460 IF df =1 THEN REST08E 1240 >W 

470 IF dl=2 THEN BESTOBE 1280 >K 

480 IF dl=3 THEN RESTORE 1320 >W2 

490 IF dl=4 THEN RESTORE 1360 >WF 

500 IF df=5 THEN RESTOBE 1380 >M 

510 ee=INT(BHD(IH23M:F0B u=l TO >NE 

ee:BEAD a»,a»,bt:NEIT:FOR 1=0 TO 20 

:1F it=de«(.t)THEN 510 ELSE NEIT:dM 

(cl=a»:c=c»l 

520 LOCATE 4,5:1F a%=0 THEN PIlNT'u >Sh 

n "taiELSE IF «1=1 THEN PBINT'une ' 

•alELSE IF al=2 08 al=3 THEN P81NT" 

des "*al 

530 LOCATE 4,6:1F al=0 08 a»=l THEN >I8 

PSINT'des ."ELSE IF »»=2 THEN PBIN 
T'un .'ELSE IF aj=3 THEN PtlNT'unc 

540 IF «»=2 THEN q«7 >HL 

550 M'MKETItlF t»="THEN 550 ELSE >TD 

IF t»=CHB»U3)AND LEN(ntl>2 THEN 6 
10 

560 IF T»=CHM1127)THEN lF(q>7 AND >IW 
al=2)0R(q;8 AND(aI=l OR a»=0 OR al 
3IITHEN q'q l:n»=LOyEB»(MID»(n»,l.L 
EN(n»>-l)l:IF a»=2 THEN LOCATE 7,6: 
PBINT n»*'. 'ELSE LOCATE B,6:PBINT 
n»»». ■ 

570 IF q=2fi THEN 550 >KD 

580 IF t«=CHR»(45)THEK LOCATE q,»:P >BZ 
«INT CHB«(45)f.":q=q4l:,»=nHt»:G0 
TO 550 



590 PEN 2:1F A5Clt»)<65 OB ASCItl» >AE 
90 ANC ASC(tl)>123 THEN 550 ELSE LO 
CATE q,v:PBlNT LOUEB»lt»H\':q «,*1 

:n»=n«»t»:GOT0 550 

600 BEN i ChHin de G.L. ■ >BV 

610 IF »«=0 08 al=l THEN M="dej '< >U 
LOUER» (b« 1:111 = 'des •> LOUES» { n* ) ELSE 

IF a«=2 THEN b»='un -tLOWËBtlbtJ :N 
»='un •tLOIIEB»ln»)ELSE IF a»=3 THEN 

b«="une ■•L0RE8«<b»l:ll*= , ui* "»LOU 
EBtlnt) 

620 n=0:FO« p«0-vITO 37 STEP 1 : PB 1 >FU 
NT trl:L0CATE 1,6:PB1NT CH8K162<n) 
:P8INT no*:LOCATE l»1.6:P8INT" ":n= 
Kl: IF n>l THEN n=0 
630 FOB u=l TO 200:NE1T:NEÏT:L0CATE >TG 

37,6:PEN 3:PBINT CHB«(201):F0B u=l 

TO 3O0:NEIT:F0B 1=1 TO 20:L0CATE 3 
6,6:1F n=0 THEN PBINT h3»ELSE PBINT 

CHB«(205)tCHB»(203) 
640 SOUND 1, 200,10,1,1, l,5:n=n*l:lF >NZ 

n>l THEN n=0 
650 FOB u=l TO 300-U10:NEXT:NEIT:L >GÏ 
OCATE 36,6:1F n=0 THEN PBINT hllELS 
E PBINT b2» 

660 SOUND 1,200, 10.1, 1,1. S:FOB irl >HB 
TO 200:NEIT 

670 FOB 1=35 TO 2 STEP- 1: LOCATE 1,6 >BC 
:1F n=0 THEN PBINT hl»f 'ELSE PBIN 
T h2»«" ■ 
680 SOUND 1, 200,10,1, l,l,5:n=n»l:IF >ND 

n>l THEN n=0 
690 FOB u=l TO 150:NEIT:NEIT >IN 

700 FOB 1=7 TO 12:L0CATE 2,1-1:P8IN >W 
T ■:L0CATE2,i 
710 IF n=0 THEN PBINT hUELSE PBINT >FZ 

h2« 
720 SOUND 1, 200,10.1,1, l,S:n=iwl:IF >NÏ 

n>l THEN n=0 

730 FOB u=l TO 1S0:NEIT:NEIT >U 

740 LOCATE 2,12:PBINT h3» >TT 

750 FOB i=l TO 10:L0CATE 2,12:1F n= >F0 
THEN PBINT h3»ELSE PBINT CHB»(205 
HCHBX203I 
760 SOUND 1, 200,10,1, l,l,5:n=n«l:IF >NC 

n>l THEN n=0 

770 FOB u=l TO 500«U2:NEn:NEIT >AB 
780 LOCATE 4,12:PBINT CHB»(172l:PBI >EB 
NT CHBI(22)«CHBI(1):PEN 2:L0CATE 4, 
12:PBINT CHB«(17SI:PBINT CHRX22HC 
HM(0):FOB 1=4 TO 16:PEN 3:L0CATE I 
,12:PBINT" '<CHBI(172):PBINT CHBII2 
2)tCHfi»ll):L0CATE H1,12:PEN 2:PBIN 



T CHBt(175):PBINT CHB«(22HCHB«10I 
790 pepe=pepe»t:IF pepe>3 THEN pepe >FJ 
=0 

800 IF pepe=l THEN SOUND 1,100,10,1 >BH 
,1,I,5:GOTO 610 

810 FOB u=l TO 200:NEÏT:NEIT >IK 

820 LOCATE 17,12:P8INT" VPBINT CHB >« 
t(22l*CHBI(l):PEN 3:LDCATE 17.12:PB 
INT CHB»(1BIHCHB»(182):L0CATE 17,1 
2:PEN 2:PBINT CHBt(189»CHBt(190>:F 
OB u=l TO 200:NEIT:PBINT CHBK22HC 
HB»(0):SOUND 1,100,10,1,1,1,5 
830 PBINT CHB»(22l»CHB»(0):LOCATE 1 >TE 
7,12:PEN 1:PB1NT' "»CHBI(214):PBINT 
CHB«(22HCHB»(I) 
840 PBINT CHB»(22HCHB»ll):L0CATE 1 >JQ 
8,tl:PEN 3:PBINT CHB»(181)»CHM(182 
l:LOCATE 18,11:PEN 2:PBINT CHB* 1189 
>«CHB»(190I:F0B u=l TO 200:NEIT:P8I 
NT CHB» ( 22 I +CHB» I 0) : LOCATE 18,11:PE 
N 1:P8INT' •<CHB»I214):P£N 3 
850 FOI 1=19 TO 31:PEN 3:L0CATE 1,1 >BU 
0:PBINT' 'tCHBt(1721:PBINT CHBK22I 
♦CHB»(1I:L0CATE H1,10:PEN 2:PBINT 
CHB«(175I:PBINT CHB»I22HCHB»I0):PF 
N 3 

860 pepe=pepe«l:IF pepe>3 THEN pepe >FG 
=0 

670 IF pepe=l THEN SOUND 1,100,10,1 >RF 
,1,1,5:070 880 

880 FOB u=l TO 200 iNETTlIBTl LOCATE >CI 
32,10:PBINT CHB» (172) 
890 PEN 2:F0B 1=9 TO 15:LXATE 33,1 >BP 
:PBINT' ":LOC»TE 33,H1:PBINT CHBtl 
166):F0B u=t TO 200:NEIT:NEn:LOCAT 
E 33,16:PBINT" VPRINT tr»:PEN 3:L0 
CATE 32,16:PBINT CHB»(193)»CHB»<192 
)«CHB»(194):LDCATE 32,17:PEN 3:PBIH 
T CHBN195H 1 ■tCHB»(196l:PEN 2 
900 LOCATE 33, 17:PBIMT CHfi»(191):F0 >FB 
8 u=l TO 350: «En: PB INT no»:LOCATE 
32,16:PBINT' VLOCATE 32,17:PEN 3 
:PBINT STBING»(3,177I:PBINT tt»:PEN 
2:L0CATE 33,17:PBINT CH8»(183) 
910 i=0:FOB 1=1 TO 500:1F INKEÏ147I >JL 
=0 THEN H=1:G0T0 920 ELSE NETT 
920 NO»=CHB»(22HCHB»(0):TB»=CHR»I2 >EU 
2)»CH8»I1):IF H=0 THEN FOB 1=32 TU 
19 STEP-1:P8INT TB«:PEN 2:L0CATE I, 
17:PBINT CHBt(183):PBINT NO»:LOCATE 
IU,17:PEN 3:P8INT CHBX177) :F0B u 
=1 TO 200:NEZT:NEIT:GOTO 950 
930 IF H=l THEN N=0:FOB 1=32 TO 19 >PL 




STEP-1:PBINT NO»:LOCATE Ul,17:PEtl 

3:PBINT CHB»<1?7! :PEINT TS1:PEK 2:L 

OCATE l,17:P81MT CHE»C170+H) :M=N<1 : 

IF N>1 TMFK 11=0 

940 FOI U'1 TO JO0:KEIT:NEXT >IQ 

950 PHIMT Nl)«:LOC»TE 19. 17:PEN 3:PB >BF 

1KT CH!»(177):PEM 2:F0i 1=17 TO 12 

STEP-1:L0CATE I.16:PBINT CHBI(162»N 

)»■ •:N=IH1:IF N>1 THE» N=0 

960 FOR u=l TO 200:HEIT:NUT:LOCATE )VB 

12,16:P»Hrr" " 
970 PRINT TB»:LOCATE il,17:PBINT CH >tlV 
B»ll69>:PfilNT NO«:FOB u=l TO 200:HE 
ÏT:LOCATE 11,17:PEN 3:PKINT CHBK17 
8>:PB1NT Tfit-.PEN 2:L0CATE 10, 18: PB I 
NT CHR*(169):F0B u=l TO 200:NEIT:PB 
IHT NOIiLDCATE 10,18:PEII 3:PBIMT CH 
1*11781 

980 IF N«--B»THEN 990 ELSE 1090 >UK 

990 PEU 3:L0CATE 10.19:PBIMT CHBN1 >IC 
79>:L0CATE U,20:PBIMT CHB«U791:L0 
CATE 12,21:PBINT CHB«(179):PBINT TB 
1:PEN 2:L0CATE 10,19:PBIKT CHMU68 
):PBINT NO»:F0B u=l TO 200:NEIT:PEN 

3:L0CATE 10,19:PBINT CHB*(179):PBI 
NT TBl:PEN Z:LOCATE 11,20:PBINT CHS 
1(168) 

1000 PEH 3:F0B u«i TO 200:NEIT:PBIN >BN 
T l»«:LOCATE U,20:PBINT CHfi«<179) 
1010 PBIMT tr»:L0CATE 12,21:PEK 2:P >KÏ 
BIHT CHR»<16B>:F0B U»l TO 200:NEIT: 
PRINT N0»:PEN 3:L0CATE 12.2t:PRIHT 
CHB»(179):PEN 2:F0B u=l TO 200:NEIT 
:PEH 2:L0CATE U,21:PBINT CHBSI1S5) 

1020 FOB u=l TO 100:NEIT:N=0:S=l:F0 >IU 
B 1=1 TO LENlB»>:LOCATE 13.21 :PAPEB 
1:PEN 0:PBINT BIGHTtlB», l);:PAPEB 
O.-PEN liPBINT av»:S=S»l 
1030 FOB U'1 TO 100:NEIT:HEIT:FOB I >Zli 
=13 TO 36-LEN(BI!:L0CATE l,21:PBINT 
• \:PAPEfi 1:PEN OiPBINT B»;:PAPEB 
0:PEN liPBINT av«:FOB u=l TO 100:« 
IT:NEIT 

1040 FOB 1=3 TO 1 STEP-1:L0CATE 40- >JD 
L£N(M>-1,21:PBINV a ;:PAPFJI l.-PEH 
O.-PBINT blcPEN llPAPEfi 0:PBINT LEF 
T«la»»,ll:FOfi u=l TO 100:HEIT:HFJT 
1050 bl=b»:s=LBI<b»hFOB i=40-s TO >NT 
»0:LflCATE l-l,21:PAPEB 0:PEH 1:PBIH 
T 1 "; :PAPES 1:PEN OiPBINT LEFTXbt 
,s);:PAPEB OiPEN l:s=s-l 
1060 FOB u=l TO 100:NEIT:NEIT:PAPEB >EB 



1070 IF 1=0 THEN sc=sc*5:od=od*S EL >AZ 

SE IF 1=1 THEN sc=sc»10 

1080 GOTO 1190 >HH 

1090 PEN 2:F0B 1=19 TO 24:L0CATE 9, >EH 

i-l:PBIKT" VLOCATE 9,i:PBItlT CHB»l 

1661 :FOB u=l TO 200:NFJT:NEXT:L0CAT 

E 9,2»:PBINT CHBI11B4):F0B 1=1 TO 2 

00:NFJT:PEN 3:L0CATE 6,23:PBIHT CHB 

»(210HCHB»(143>tCHfi«U97)f "tCHB» 

ll96HCHB»U43>tCHB»(2101 

1100 UiCATE 6.2*:PHiKT" •tCHB»(143l >AJ 

*CHB«( 197): LOCATE 10,2»:PBINT CHBsl 

lSeUCHMdWH" VLOCATE 9.24:PEN 

2:PBINT CHBX185! 

1110 FOB 1=1 TO 300:NEIT:U)CATE 7,2 >VD 

3:PEN 3:PBIHT CHB»(210)tCHB»(143HC 

HB»(197I:L0CATE 7,2«:PBINT" 'tCHBtl 

1*3 1 tCHR» ( 197 ) : PB I MT tr«:LOCATE 9,2 

3:PBINT CHB»(198HCHB»<I43>;:PBINT 

no»;:PBINT CHB»(210):PRINT tri 

1120 LOCATE 9,24:PRWT CHBI(198)»CH >ZA 

B«(143I;:PBINT no»;:PBINT" VPBINT 

tr» 

1130 PEN 2:L0CATE 9,24:PB1NT CHBK1 >DU 

86)«CHB»(187):PBINT no»:FOB i=l TO 

500:NEIT 

1140 LOCATE 4,6:PEN 2:PRINT bl:FOB >UK 

1=1 TO SOOOlNEIT 

1150 IF 1=0 THEN od=odH0 ELSE IF ■ >BV 

=1 THEN od=od»20 

1160 v»=v»-l:F0B 1=1 TO ÎOOO.'NEUT: I >JD 

F rt=0 THEN 1800 ELSE GOTO 1190 

1170 END >ÏH 

1180 BEH • Tour suivant ■ >TH 

1190 FOB 1=23 TO 24:L0CATE 6, 1:PEN >HV 

3:PBIHT CHB»(143HCHMU97)f 'K 

HB»(198)»CHBI(I4.1I:HTIT:F0B u=l TO 

200:NEXr 

1200 FOB 1=19 TO 21:L0CATE lO.liPBI >B« 

NT" ■:NEXT:LOCATE 32,10:PBINT- ": 

PEN 3:L0CATE 4,12:PBINT CHBK172I.L 

OCATE 2,12:PBINT" "iLOCATE 36,6:PB 

IHT h3«:PEN 1: LOCATE 13,21:PBINT av 

t 

1210 LOCATE 4,5:PBIHT SPACEX32) :LÛ >AA 

CATE 4,6:PBINT SPACE«(32):PEN 2:G0T 

410 

1220 BEA • lots a copier, yeui fer» >EG 

es ■ 

1230 ' : Niveau 1 : >LI 

1240 DATA li barque, barques, t,saucis >IK 

se, saucisses, 0, accident, accidents, 



, train. trains. 1, période, per iodes, 0, 
fossoyeur, fossoyeur s, 1, fraction, Ira 
et ions, l,feame,f eues, 1, valise, val i 
ses, l,aalson,aai9ons,l, table, tables 
,0, or dîna teur, ordinateur s, O.noa.noa 

3 

1250 DATA 1, touche, touches, 1, trama >IE 

e, trousses, 0, casque, casques, 1 , aanet 

te, ianettes,0, biberon, biberons, 0, te 

lephone, téléphones, 0, lit, lits 

1260 DATA 1, radio, radios, 0, cube, cub >FX 

es, 2, réveils, réveil, 3, fenêtres, tene 

tre 

1270 ' : Niveau 2 : >K 

1280 DATA O.bi!ou,biloui,0,louiou,l >LU 

ouloui , 0, chou, chou» , 0, noeud, noeuds, 

2, pvtaïas.pyiaaa, 2, soucis, souci, 0,o 

ut 1 l,outils,l, erreur, erreurs, 2, cong 

res, congres 

1290 DATA 1, paroi, parois, O.etui.etu >FH 

is,u, essai, essai s, u.aater le l.aaten 

els, 0, ci toyen, citoyens, 0, bal, bals, 

«carnaval, car naval s, O.detail.detai I 

s, 0, portail, portails 

1300 DATA 0, trou, trous, 0, clou. clous >AH 

,0, éventail, éventail s, 0,appareil,ap 

parei I s, 2, décors, décor , 2, parcours, p 

arcours 

1310 ' : Niveau 3 : >IH 

1320 DATA 3,perdn>,perdrii,2,prii, >HB 

pr u, 2, palais, pa lai s,0, nez, nez, 2, sa 

lheureui,ulheureui, 2, friias.fr lias 

1330 DATA 2,iatelas,iatelas,2,corps MF 
,corps,2,aaoureui,aaoureui,2,abus,a 
bus, 2, anchois, anchois, 2, croquis, cro 
quis,2,coapas,coapas,2,unlvers,unlv 
ers,2. refus, retus,2,chaaps,chaip,2, 
printeaps,pnnteips,0,oeil,yeuz 
1340 DATA 2, agendas, aienda,0,pre,pr >UB 
es,0, enteu, en leur, 0, panneau, panneau 
i,0, lieu, heui.ll, hibou. hiboui, 2. she 
■as, sheaa,0, conseil, conseil s, 0, pet 1 
t-f 1 1 s, pet Its-f il s, 0, résidu, résidus 

1350 ' : Niveau 4 : >TB 

1360 DATA 2,perils,peuis,2,debarra >E2 
s, débarras, 2, discours, discours, 2, ca 
denas, cadenas, 2, enclos, enclos, 2. deb 
ris, débris 

1370 DATA 0, rouleau, rouleaui,0, pote >IF 
au, poteaui,0, reseau, reseaux, 0,preau 
,preaui,0, berceau, berceaui,0, noyau, 
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noyaui , û, luseau, luseaui, 0, cheveu, ch 
eveui 

1380 DATA 2, poids. poids, 0, bouleau, b >EV 
ouleaui.û, coucou. coucou9,0, journal, 
lournaui.O, local, locaui.U, cardinal, 
cardinaui 

1390 DATA l,volz,vou,0, cerf-volant >DK 
. , cerfs -volants, O.poisson-chat.poiss 
ons-chats, 2, apprentis, apprenti, 2, pe 
tlts-flls, petit-fil! 
1400 ' : Niveau 5 : >HH 

1410 DATA 2, cerfs-volants, cerf-vola >AT 
nt, 2, poi ssons- chats, poisson-chat, 2, 
apprentis, apprenti, 0, genou, genoui, 2 
, ranges-cassettes, range-cassettes, 2 
,gardes-ulades,garde-lalade,2,rond 
s-polnts, rond-point 

1420 DATA 3, paltes-fories. plate-for >TG 
■e, 0, appui -tête, appuis- tête, 2, treso 
ri ers -paveur s, trésorier payeur, 3, pi 
dtes -bandes, plate bande, 2. presses- p 
apiers, presse-papiers, O.lûnsieur, h 
ssieurs, 0, bonhone, bons houes, 2, sa I 
slf is, salsifis 

1430 DATA 2,sous-veteaents,sous-vet >ZB 
eient, 2, wagons-restaurants, uagon-re 
staurant, 2, coffres-forts, coffre-for 
t.O.sourdiuet, sourds -iuet9. 3, bel le 
■ère , be 1 1 es- aères, û, urteau-pi I on, 
■arteaui- pi Ions, 2, tiroir s -caisses, t 
iroir-caisse,0, rendez-vous, rendez-v 
ous 

1440 DATA 2, sous-bois, sous-bois,0, s >TH 
ous préfet , sous -préfets, il. sous-sol , 
sous-sol s, O,sous-lultiple,sous-lult 
iples, 2, cerf s- volants, cerf -volant, 2 
, poissons-chats, poisson-chat, 2, appr 
entls.apprenti.O, genou,genoui,2,ran 
ges-cassettes, range-cassettes 
1450 ': Présentation : >'C 

1460 MODE IflK 0.0: INK 1,0: ] MK 2,0 >TH 
:iNK 3,0:B0BDEfi 

1470 PAPER 11:CLS:PAPEB 0:PEN 1:F0B >Gw 
1=2 TO 39:L0CATï i,12:PBINT CHBIU 
99):L0CATE i,20:PBIKT CHB*(19S> :KEI 
T:F0t 1=13 TO 1B:U)CATE 14. i :PSIKT 
CHB»( 199): LOCATE 26,i:PIIHT CH1II19 
9>:NEIT 

1460 PEU 0:F0B 1=3 TO 27 STEP 12:F0 >KE 
1 1=13 TO 19:L0CATE l,i:P81NT STR1N 
Gllil,143):NEIT:".EIT:PEN 1:L0CATE S 
,13:PBIKT CHBt(14J);:PEN 2:PtlNT ST 
BIKG»(8,143> 



1490 PBINT CHB»(22)»CHB»(1):F08 1=3 >PG 
TO 13:PEH 1:L0CATE 1,19:PBIKT CHBI 
(143):PEN 2:L0CATÏ l,19:PBI«7 CHBII 
1B81 : HEXT : PB I NT CHB»(22HCKB»(0):PE 
N l:LOCATE 5,14:PBINT CHfi»(213)tST! 
ING«(8,143):L0CATE 3, 19:PEDM 1:PBINT 
CHM(14JHCHB»(143l 
1500 cu=2:phl=CHBt(165):L0CATE 5,17 >BK 
:G0SUB 1740:cu=3:phl=CHBtll/2l:LOCA 
TE 7,1/: GOSUB 1740:PEN 1 : LOCATE 15, 
1«:PBIKT STBING»(3,143HCHfi»(212):F 
OB 1=13 TO 19: LOCATE 25, ilPEINT CKB 
1(143) ifCXT 

1510 cu=3:pM=ST8ING»(10,177):L0CAT >lffi 
E 15,1B:G0SUB 1740:cu=3:phl=CHRI( 19 
3)»CNBtll92XCHB«(194l:L0CATE 19,16 
:G0SUB 1740:ph»=CHB»(195U" ''CHBII 
196l:L0CATE 1B,18:G0SUB I740:cu=2:p 
hl=CHB»(l83):L0CATE 20,16:G0SUB 174 


1520 PEU ltFOB 1=13 TO 19:LOCATE 27 >J¥ 
,i:PBINT CHS» (143): LOCATE 3B.i:P!lK 
T CHB»(143):NEXT:F0fi 1=28 TO 37:L0C 
ATE i,19:PBINT CHBII 143) :NEIT:ph»=C 
Hfi»l210)»CHB»(210):cu=3:L0CATE 28.1 
5:G0SUB 174O:L0CATE 36,1S:G0SUB 174 


1530 ph»=CHBI(l43)>CHSII143i:L0CATE >Eh 
3O,15:G0SUB 1740: LOCATE 34,15:GOSU 
B 1740:LOCATE 30,I/:G0SUB 1740: LOCA 
TE 34,17:G0SUB 1740:LOCATE 3,17:ph» 
=CHB«(200)»CHB«I201):G0SUB 1740 
1540 phl=CHfil(197).CHBI(19/):L0CATE >DH 
32,15:G0SUB 1740:L0CATE 32,17:G0SU 
B l740:phl=CHB»(19B)»CHB»(198]:LOCA 
TE 32,15:G0SUB 1740:LOCATE 32,17:GO 
SUB 1740 

1550 cu=2:ph»=CHE!(186>tCHfil(187):L >YN 
OCATE 32, 17:G0SUB 1740:LOCATE 15,13 
:PEN 2:PSIHT STBINGN3, 143); :PFJ 1: 
PBIKT CHSK143) 

1560 PLOT 32,206.1:DUV 206,206:DBA >ND 
U 206.96:DBAW 32,B6:D«AW 32,206:PU) 
T 224,206:DBAB 390,2O6:PL0T 224,206 
:DBAW 224,B6:DBAIi 390.96:PLOT 432.2 
06:DBAÏ 600,206 

1570 phi ="The Bay of the Success'tF >NG 
APEB 3:L0CATE 9.2:GOSUB 1760:ph»='C 
ree et Bealise par Vincent Bouvelle 
VLOCATE 3.23:G0SUB 1780 
1560 PEU OiLOCATE 9.6:PBIHT«egles )C8 
du leuVLOCATE 9.8:PBINT"Ditf Icul 
te (l - S) ■jdftUKATE 9,10:PBINT' 



Initiales du loueur AA':ab=6:B0BDES 
11:1F UPPEBttztl='C'THEH INK 1,15: 
INK 2,16:INK 3,11 ELSE INK 1,15: INK 
2.5: INK 3,11 
1590 LOCATE 32,ab:PBINT CHBII242! >AN 
1600 inlMNKEYI: IF inl="THEN 1600 >BN 
1610 IF •n»=CHII(240)AND ab>6 THEN >BH 
LOaTE 32,ab:PBIKT - ■:ah=ab-2:UXAT 
E 32,ab:PBINT CHBI1242) 
1620 IF inl=CHBI 12411 AND ab<10 THEN >DL 
LOCATE 32,ab:PBINT' ■:ab=ab<2:LIXA 
TE 32,ab:PBINT CHB<(242) 
1630 IF inl=CHB«U3)AND ab=6 THEN 1 >DU 
940 

1640 IF ■n»=CHBII242)AND ab=8 AND d >JB 
f>l THEN dt=dfl:LOCATE 29,8:PBINT 
USING"H\df 

1650 IF >nl=CHBII2»3)AND ab=8 AND d >JU 
f<5 THEN df =dM:L0CATE 29.8:PB1NT 
USING'H'idf 

1660 IF inl=CHBI(13)AND ab- 10 THEN >UB 
gh=29:G0SUB 1680:N0DE 1: INK 1,0: INK 
2,0: INK 3,0:B0BDEB 0:PAPEB 0:BETUB 
N 

1670 GOTO 1600 >NJ 

1680 hl=UPPEBI(INKEÏI):IK h»="THEN >HL 
1680 

1690 IF hl=CHBI(127)AND gh>29 THEN >QA 
gh=gh-l:LOCATE gh,10:PBINT" ":lnl=rl 
ID»lin». l.LEHI in») 1) :G0T0 1680 
1700 IF hl<>CHfi»(127)AND gh<31 THEN )BL 
LOCATE gh,10:PBINT h«:gh=ghtl:ln$- 
Inlthl 

1710 IF H«=CHMI13)AND IN»<>"THEN >JN 
BETUBN 

1720 GOTO 1680 >NC 

1730 LOCATE 1,1: END >NJ 

1740 FOB 1=1 TO LEN(phl):FOB t=0 TO >JN 
7:p=PEEK(HIHEH»H(ASC(HID«(ph».t,l 
D-32H8U) 

1750 Ht) = p:NEIT:SYrtBOL 254,1(0), ■( >ÏF 
0),i(l),i(l),a(2),il2),il3),i(3):SÏ 
MBOL 255.i(4),i(4),i(5),i(S),i(6),i 
(6), 1(7), 1(7) 

1760 PBIKT CHBI(22)*CHBI(1)::PEN eu >VC 
:PBINT CHfl»(254>;CHB«U0);CHfi»(8);C 
HB»(255liCHM(U)i 

1770 NEIT:PBINT CHB»(22)*CHB«(0):BE >JZ 
TUBN 

1780 FOB )=1 TO LEN(phl):FOB t=0 TO >VB 
7:p=PEEK(HIHEN«li(ASC(HlD«(pM,l,l 
))-32)i8U):a(t)=p:NElT:SrHB0L 254, 
1(0), alOl.ill ).i(l ),i(2), 1(2), 1(3). 
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■<3):SriatOL 255,1(4), ■(♦1,1(5), 1(51 

,1(6), 1(6), 1(7), 1(7) 

1790 PilNT CHM(22)tCHB»(l)i:PEN 2: >GH 

PBINT CHK*(2S4);:PEN 0:P«IHT CHIII1 

0);CHB»(BI:CHMl255l:CHB»llll;:MErr 

:PHLNT CHRt ( 22 1 *CHH« 10): tETURK 

1600 LOCATE 2,12:PEN 3:PSINT" ":U1 >KA 

CATE 36,6:PBIMT CHfi«(2O8»CHfi»(209) 

llHMXNtl, 15.25, 11, 14:PAPEBI1,1:CLS 

ll:Pfflil,0:L0CATEIl,2,2:PBINTll,"GA 

HE OVEB" 

1810 BESTOBE 1820;FOB tt«l TO 10:BE >BU 

AD g,h:SOUND l,425«< |«25) , 2Sth. 15, S 

:SOUND 1,0,2:NEIT 

1620 DATA 3,4,3,3,3.1,0,3,1,1,1,3,3 >KI 

,1,3,3,4,1,3,4 

1630 FOB u=l TO 2O0:KEIT >BE 

1840 MODE lllMC 0,0:PAPEB li:CLS:PE >0H 

N 0:BOBDEB 11 

1850 IF sc)od AND sc<9999 THEN LOCA >HB 

TE 4,9:PBINT"Vous avez échoue a vot 

te iission":LOCATE 5,lt:PB]HT*IUts 

vous avez battu Dieu ! ! ! ■ : GOTO 1930 

1860 IF sc>9999 THEN LOCATE 13,7:PB >P2 

INT'Hagnlf Ique !!!»:L0CATE 2,9:PBIN 

T"Vous avez épuise toutes les reso 

urces":LOCATE 15,ll:PBlNT"de Dieu!! 

!":GOT0 1910 

1670 LOCATE 9,9:PBINT"Dieu vous a a >BF 

cheve !!!":LOCATE 9,U:P«INT"«ous e 

tes vralient nul":G0T0 1930 

1680 INK 0,0:LOCATE 8,24:PBINT"Une >H2 

autre partie (0/N) ?" 



1890 a»=lKKET»:IF a»=""THEN 1890 B. >AC 
SE IF UPPEB»(a»l="0"THEN BON ELSE I 
F UPPEfi»lal)-"N"THEN END 
1900 GOTO 1890 >«F 

1910 LOCATE 20,13:ph»=CHB»(160):cu= >BI 
0:GOSUB 1740:LOCATE 20. 15:ph»--CHB«( 
143):cu=2:G0SUB 1740: LOCATE 18,17:p 
h»=STBING»(5,i43):G0SUB 1740:LOCATE 
20,15:ph»="r:cu=0:G0SUB 1 740 : LOCA 
TE 18,17:ph»="2 3":G0SUB 1740 
1920 LOCATE 1,19:PRIMT STBING$(40,2 >BK 
O7hG0T0 1680 

1930 LOCATE 16, 15 : ph»=CHB»( 206) iCHB >JL 
1(209) :cu=0:GOSUB 1760:LOCATE 20.15 
:phl=CHfi»(16O):cu-2:G0SUB 1740: LOCA 
TE 1,17:PBINT STBING«(40,207) :PEN 
:GOTO 1680 

1940 '••• Belles du leu ••• >TG 

1950 «ODE 2: INK 0,24:1NK 1,0:PEN 1: >KB 
PAPEB 0:BOBDEB 24:L0CATE 29,1:PRINT 
"The way of the success" 
1960 PBINT:PIINT' Ce leu est destin >CK 
e aui enfants de 6 a 12 ans. Il appa 
rtlent a la catégorie des éducatif 
s (attendez, ne partez pas!!!). Vou 
s incarnez Stanley, un huuin coMe 

vous et Mi (en principe!!!)."; 
1970 PBINT' Vous avez pour lission >AU 
de lettre les nois au pluriel ou re 
prociqueient (pardon, reciproqueient 
!!!)." 

1980 PBINT" Dieu est très severe. A >IN 
ussi, a chaque lauvaise réponse, c' 
est la boucherie assurée (vous ver 



rez par la suite!!!). Par contre a 
chaque bonne réponse, vous ga-gnez 
des points." 

1990 PBINT" Le larquage des points >IB 
se fait en fonction de votre parcou 
rs; le l'eipllque !!!Quand Stanley 
est dans l'eau, si vous appuyez sur 

(ESPACE). Il nagera. Ainsi si votr 
e réponse est bonne, vous urquerez 

10 points. Si elle est fausse. Die 
u"; 

2000 PBINT'iarquera 20 points (eh o >VV 
ui!!!>." 

2010 PBINT'duand Stanley est dans I >GD 
'eau, si vous n'appuyez pas sur (ES 
PACE>, il ne nagera paslencore log 
ique!!!). Ainsi si votre réponse est 

bonne, vous urquerez 5 points. Si e 
Ile est fausse, Dieu larquera 10 po 
lnts (quelle injustice! !! l" 
2020 PBINT'Dieu vous accorde 3 vies >WC 

(on s'en contente largement! ! !).' 
2030 PBINT" Les grandes personnes ( )VF 
co«ke mi) peuvent Jouer a ce leu a 

condition de Mdl-fier les DATAS 

a partir de la ligne 1030. Ils y ■ 
ettront les nois adaptes a leur niv 
eau." 
2040 PBINT' C'est dans les vieilles >BN 

■anittes que l'on fait les Mille 
ures soupes (Certalnsie coiprendron 
t)." 

2050 LOCATE 32,24:PBINT"BONNE CHANC >HP 
E !!!":CALL UB18:G0T0 1460 
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Boss OF 

CHICAGO 

Des tueurs sont à vos trousses. 

Quelle erreur d'avoir voulu 

détrôner le Boss de Chicago .' 



F. BARNABE 



Valable pour 
M CPC 464 
M CPC 664 
M CPC 6128 





Tapez ce programme et préparez- 
vous à affronter des assassins sans 
pitié sur 6 tableaux différents. Vous pour- 
rez alors rencontrer le Big Boss pour une 
ultime confrontation. 

Tout au long du jeu, une fenêtre en 
bas de l'écran vous indique le nombre 
d'ennemis restant à abattre. Pour chan- 
ger de niveau, le nombre de balles, de 
chargeurs et le temps en secondes qu'il 
vous reste à vivre, ainsi que le nombre 
de vies que vous possédez. 
Si vous êtres lâche, grincheux et pleur- 
nichard, en bref si vous présentez toutes 
les caractéristiques d'un tricheur profes- 
sionnel, éditez la ligne 600 et modifiez à 
voire guise les variables vie et level. 

Attention !!! L'usage du joystick est 
obligatoire... 




10 '(■■■iitttiiilfliiiifi 


)U 


20 'il il 


>U 


30 '■■ BOSS OF CHICAGO ■■ 


>LC 


40 '•■ " 


>LD 


50 ■•• PAU F.BAENABE •• 


>L£ 


00 'Il •• 


>LF 


70 'Itlffiiifflilllllivii 


>lg 


00 ' 


>LH 


90 ' INITIALISATION 


>U 


100 ' 


>u 


110 ON MiEAK GOSUB 3280 


)QP 


120 MODE 1:INK 0,0:BORDEII 0:IMK 1,1 >CU 








130 SI «BOL AFTEM 33 * 

140 SVI1B0L 230,lFF.IrO,lFF.tFF,tFF.t >LH 

FF.tO.IFF 

150 SVKB0L 231,tBD,lBD,tB0.tBl),t8D. >NÏ 

IBD.UD.tBD 

100 SÏHBUL 232,lBD,tBC.tBB,tB7,tAF, >DF 

19F, 140, 13F 

170 SVNS0L 233,tB0.tlD.tED.tFS.tF9, >W 

UT>,l2,tFC 

180 SÏHBOL ZS4.lFC,t2,tF9,tF5,ttD,t >H8 < 

DD.k3U.tBD ' 

190 SIBB0L Z3S.t3F.l40.t9F.UF.VB/. >ND 

IBB.UCtBD 

200 SÏHBOL g?,!^,!^,!^,»!?,»!^,» >« 

FF.tFF.tFF 

210 SÏHBOL 98,tAA,t5S.tAA.tSS.tAA,t >LE 

SS,tAA,tS5 

220 SÏHBOL 236, tlU.t42.tO.lBl. 181.1 >JB 

Û,t«2,tl8 

230 SÏHBOL 23/, 116.142,18, tB9,t9D,t >KI 

10. 142. 118 

240 SÏHBOL 99. tf /.tB6.tS5.t0,tiF,tfi >FU 

B.ISS 

250 SÏHBOL lOO.tFi.tFE.tFE.tO.tEF.t >HZ 

EF,t£F 

260 SÏHBOL lOl.tCî.tCi.tFF.lll.ttl. >HJ 

tFF,tC7,tC7 

270 SÏHBOL 102.10. 154, tM.t7C.t7E,t >GF 

7C.V3E 

280 SÏHBOL 103,tSF.tFF,t7F,tO,tAA,t >LL 

55,tAA,l5S 

290 SÏHBOL 104,tE7,ta,t99,tX,tX, >HÏ 

t9S,tC3,tE7 

300 SÏHBOL 105,t0.tFF,lFF.tA2,tO,tO >JE / 

.tFF.tFF ' 

310 SÏHBOL 106,tFMFB,tFD.tFE,tO.i >HC 

FE.tFE.tFE 

320 SÏHBOL 107,tE0,t£E.tEE,tEE.tEE. >NH 

lEE.tEC.tEO 

330 SÏHBOL 106,tFF.!7F,t3F,tlF.tF,i >HB 

7,13,11 / 

340 SÏHBOL 109,tFF.tFE,tFC,tF8.tF0. >HB 

lE0,tC0,t80 

350 SÏHBOL UO.tFE.lFE.tFE.tFE.tFE, >PC 

IFE.tFE.tFE 

360 SÏHBOL Hl,t0,tl8,tX,tl9.t7F,i >LN 

7E,t7C,t3C 

370 SÏHBOL 112,118,134,134.134,134, >KD 

13C,M,UC 

380 SÏHBOL 113,tO,tlF,l3F,l7t,tF9,l >LH 

8A,t8C,tF8 

390 SÏHBOL 114,t3.tl,l4,t3,t70,t£D, >FC 

15.13E / 

400 SÏHBOL 115,tD8,tBO,t70,t94,t3C, >HD 
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tF0,t34,tE6 

410 SÏHBOL ll6,tlE,t67,t61.tFl,tE0, >LB 
t4A,tlA,tl6 

420 SÏHBOL I 1 7. tA. tAF, tAF, IAF, V6F.I >HZ / 
FE.tSE.tlE 
430 SÏHBOL U8.tM3f.t77,t7B,t3C.t >HE 
F.lilO.tS 

440 SÏHBOL ll9,t6O,t£0,tEC,tFC,tl8, >HJ 
IFO.tlO.llO 

450 SÏHBOL 120,tE,t7.iS,tlB,t/8.tF4 >JT 
,tEE,lF6 

460 SÏHBOL l2l.l£0.tCO.t/8,t80.tSC, >IM 
L6F.t77.ir6F 

470 PEU 1:L0CATE b. 1:PBIMT CH8N23S >HH 
)<STIl»GII30.230ltCHM(234> 
480 LOCATE 5,2:PÏINT CHB»(23IH"SC0 >HT 
II; ■♦CHMI231H' AHSTAB t 

CPC 'tCHMlUl) 

490 LOCATE 5,3:PIIKT CHÏ1I232HST8I >BF 
NG<(30,230l»CHi»l233l 
500 FOI 1=4 T0 19:LOCATE 8,I:PBMT >DG 
CHM(231):L0CATE 33. I:PBIKT CHMI23 
lhIBT 

510 LOCATE 2,20:PIINT CHM(235HST8 >CJ 
ING«(36.230)«CHM(234) 
520 F0B 1=21 T0 24:L0CATE 2, l:PBIKT >EA 
CHM( 231): LOCATE 39. 1 :PB1NT CHMI2 

3i) sien 

530 LOCATE 2,25:PIIHT CHM(232)«STI >CH 
ING> 136. 2301 «CHJ» 12331 
540 HINDOU 13,3,38,21,24 >U 

550 GOSUB 2770 XW 

560 GOSUB 3170 >0D 

570 UINDON 12,9,32.4, 19:CLS I2:CLS >CA 
13 

580 LOCATE 13.2:PSINT'0 ■ >W 

590 CLEAB:0N BIEAK GOSUB 3280 >IG 

600 LEVEL=1:»IE=3 >«/ 

610 LOCATE 23,23:PIINTTÎHPS: , :L0CA >GP 
TE 32,23:Pllin 'VIEr'vie 
620 GOSUB 1520 >PH 

630 ' >«K 

640 ' DEPLACEHEHT VISElil >TA 

650 ' >TB 

660 PLOT -2,0,2:TAGOFF tl:PKINT 11, >PG 
CHB»(22I«CHBII1I;:PIINT ll,CW«(23) 
»CHM(3);:TAG 11 

670 HOVE I.Ï:PtlNT ll,CHB»(236). 
680 J=J0l(OI 
690 IF IMM THE* 1400 
700 IF CAHG=0 THEN 940 
710 IF (J A» 16)00 THE* J=J-16: IF >IT 
CHAB>-1 THEN 830 
720 IF J=0 THE» 670 >U 



>AI 
>EJ 
XII 
>PH 
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730 FLOT 2,0,1:TAG0FF IliPliNT 11, >JI 
CHI*(23MCHB«<2)i:TAC ll:HOVE 1,1 :t 
1IMT 11,-»"; 

740 IF J=l THFJ T=I»I6 >PT 

750 IF J=2 THFJ T=ï-16 >PI 

760 IF J=4 THFJ 1=1 16 >PI 

770 IF J=8 THEN 1=M6 >N 

760 IF Mi THEU M-16:Ï=TU6 >H 

790 IF J=6 THFJ I=X-16:»=M6 )I2 

600 IF J=9 THFJ I=H16:(=rtl6 >0> 

810 IF J = 10 THFJ I=M6:T=T-16 >II 

620 GOTO 660 >ZJ 

630- >T» 

640 • FIEE !!! >TC 

6S0 ' >TD 

860 HOVE I,Î:PBINT II.CHM<237>; >AZ 
670 FJV 1,30,0,1, 127,-1, 1S:S0UND 12 >TD 
9,0,240,15,1,0,10 

880 IF TTPE-10 THFJ 900 >Q» 

690 HUNI=IIUNI-1:DI:L0CATE 3>IUNI,23 >LD 
:PilHT" ■ -• E 1 : 1 F HUN 1-0 THFJ NUN1=9: 
CHAa^CHAE-1 :DI :LOCATE 14»CHAfi,23:PB 
IKT* ':EI:IF CHABO-1 THFJ MtUGIl 
E 3,23:PBIWT STBIN6»(9,V>:EI 
900 IF TYPE=1 OU TVPE=3 THFJ IF I=G >TG 
1116 01 I=SH16-16 THFJ IF T=(-6Ï»2 

6H16-18 01 T-(-C1«26)il6-2 THFJ 12 

60 

910 IF TYPE=2 THFJ IF I=6I«16-16 AN >EA 

D r=<-6Y«26U16-2 THEN 1280 

920 IF TTPE--6 THEN IF l=SM6 01 1= >U 

61116-16 THFJ IF T=(-GV«26)H6-18 

1 T-(-6T«26>il6-2 THFJ 3020 

930 GOTO 730 >ZJ 

940' >T0 

950 ' ICI LES BANDITS AU I VENT >TE 

960- >TF 

970 ON LEVEL GOSUB 1000,1060,1060,1 >PN 

160,1210.1250 

980 TEHPS=2:6«N6=1 >NT 

990 LOCATE 29,23:P1INT TEHPS:EVEIT >E2 

50,0 GOSUB 1490:60TO 680 

1000 CHANCE- INT(tNDt6»l :1F CHANCE; X* 

1 THEN LOCATE 13,I2:P1INT •••:GI>13 

:GT=12:TYPE=2:BETUB)I 

1010 IF CHANCE>1 ANO CHANCE<5 THEN >ED 

1040 

1020 nPE-l:CHANCEI«7(BND»5>tl:fiES >LQ 

TOtE 1030: FM 1=1 TO CHANCE :BEAD 61 

,6T:NEIT:L0CATE GI,GT:PtlNT a rf':U)C 

ATE GI.GKllPIINT'tu'ilETUW 

1030 DATA 16,11,23,11,26,11,12,6,16 >M 

.6 

1040 TÏPE=3:CHANCE=INT(8NDi?t»l:BES >U 



TOtE 1050:FU» 1=1 TO CHANCtltEAD U 

,6T:NEIT:L0CATE 6I.6T:PBINT'rs':L0C 

ATE GI.GIihPBINT-tuVBETUBN 

1050 DATA 21,5,22.5,23,5,24,5,28,5. >* 

29,5,30,5,31,5 

1060 TTPE=l:CHANCE=l»T(M)t6l«l:8£S >U 

TOBE 10?0:F0fi 1=1 TO CHANCE :B£AD 61 

,G»:K£IT:LOCATE GI,GT:PB[KT"rs":LOC 

ATE GI.GKliPlINT'tuMETWN 

1070 DATA 12,8,17,6,22,6,27,6,12,14 >FE 

.27,14 

1080 CHANCE=INT(BN0l2):IF CHANCE=1 >TJ 

THFJ 1090:ELSE 1130 

1090 CHANCE=INT(BNDH3)*l:BEST0iE 1 >HJ 

120:F0I 1=1 TO CHANCEiBEAD 6I,6»:NE 

IT:L0CATE GI.GÏiPlINT'rs'rLOCATE 61 

,6ï»l:P«INT"tu" 

1100 IF CHANCE>2 THEN TTPE=3:ELSE T >JC 

TPE=1 

1110 BETUBN >EG 

1120 DATA 12,6,12,13,17,17,18,17,19 >V0 

,17,20,17,21,17,22,17,23,17,25,13,2 

8,13,29,13,30,13,31,13 

1130 TlTE=2:CHANCE=INT(tNDil5l»l:tE HIV 

STOBE 1150 

1140 FOI 1=1 T0tHA«CE:BEAD 6I.6T:N >VA 

EJT:U)CATE GI.GY:PIINT"o':«ETOtN 

1150 DATA 21,12,23,12,25,12,21,10,2 >NV 

3,10,25,10,27,10,29,10,31,10.27,8,2 

9,8,31,8,27,6,29,6,31,6 

1160 TYPE=l:CHANCE=lNT<BNDi8)M:BES >PD 

TOtE 1200 

1170 FOI 1=1 TO CHANCE:I£AD 61.6T:N >6C 

En 

1180 LOCATE GI,GT:PBINT'rs':liX;ATE >IA 

Gl.GÏU:PBINT"tu" 

1190 BETUBN >FE 

1200 DATA 10,10,10,14,21,10,21,14,2 >IL 

5,10,25,14,29,10,29,14 

1210 TTPE=2:CHANCE--INT(«NDi29Hl:tE >Q2 

STOBE 1240 

1220 FOI 1=1 TO CHANCE:IEAD 6I,6T:N >GT 

ETT 

1230 LOCATE GI,GT:PtlNT"o':IETUBN >FU 

1240 DATA 10,6,10,6,10,10,10,13,10, >CG 

15,14,8,14,10,14,12,14,14,18,7,18,9 

,18, 11, 18, 13,18, 15,20,7,20,9,20, 11, 

20,13,26,14,29,7,29,9,29,11,29,13,2 

9, 15,31,7,31,9,31,11,31, 13,31, 15 

1250 GI=20:GT=12:TYPE=6:E£TUS* >U 

1260- >TB 

1270 ' > rc 

1280 01: LOCATE 1,1:PEN 0:PI1NT BEHA >CT 

INIO):EI:PEN 1:ATUEI=ATDH-1: LOCATE 



3tATUEt,21:FllNT' ' 

1290 SCÛBESCOBEt 50: LOCATE 12,2:Pil >NC 
NT SCOIE 

1300 GOSUB 1320:1F ATUEt=0 THEN LEV >BE 
EL=LEVELU:GOSUB 1520 
1310 GOTO 650 >FI 

1320 ' >JJ 

1330 ' LA ILS BEPAtTENT !!! >IK 

1340 • >TA 

1350 BOBMB 6:6AN6=0 >PA 

1360 IF TYPE=1 THEN LOCATE 6I.6Y:PI )UI 
INT'flVLOCATE 6I,GY«l:PBINTVf:B0 
1DEB 0:lETUtN 

1370 IF TTPE=3 THEN LOCATE 6I,6Y:Pfi >0I 
INT- •: LOCATE 6I.G»H:PI1NT" »lM 
IDE! O.'tETUtN 

1380 IF TYPE=2 THEN LOCATE 6I,6V:P1 >FH 
INT'IVBOlDEt 0:BETUIN 
1390 BOBMB 0:IETUIN >0H 

1400 ' >m 

1410 ' «OBT ... >IJ 

1420 ' >H 

1430 HDtT=0:ENV 1,30,0,1,127,-1,15: >M 
SOUND 129.0,240, 15,1. 0.10:FOi 1=1 T 
2000:NEXT:60SUB 1320 
1440 PLOT -2,1,1:PIINT CHB«(23)»CHB >Ht 
l(2l:H0VE i,»:PIINT 11, 1 * 1 ; 
1450 PtINT CHIf(23>tCKBt(3>:IMC 2,6 >ZC 
:IHK 3,6:S=640:F0I 1=350 TO 96 STEP 
-2:PL0T 126,l,2:DtAV 510,I:S0UND 2 
,S,1.5:S=S-5:NEn 

1460 VIE=VIE-1:L0CATE 36,23:PtlNT V >JQ 
IE.-IF VIE=0 THEN LOCATE 16.11:PFJ 
:PAPEI 2:PtlNT'GANE OVEl':PAPEt 0:P 
EN 1:F0I 1=1 TO 3000:NEn:G0T0 550 
1470 PtINT CHI»(23)»CH1»(2):F0I 1=3 >HG 
50 TO 96 STEP -2:PL0T 126,1, llDUN 
510,I:SOUND 2,S,l,5:S=S«5:NEn:IIK 
2,26:INK 3.26:I=320:T=206:G0T0 650 
1460 ' >TF 

1490 TEHPS=TEHPS-1:L0CATE 29,23:Ptl >QG 
NT TEHPS:IF TFJPS<=0 THEN LOCATE 1, 
1:PEN 0:PIINT IEIUINIO):PEN 1:N0IT= 
liKKH 

1500 IETUIN >EK 

1510 END >TF 

1520 ' >TA 

1530 ' CHANGEHFJT DE TABLEAU >TB 

1540 ' >TC 

1550 IF LEVELU 01 LEVEL>6 THEN CLS >B0 
:STHBOL AFTEB 33:PBINT"LEVEL doit e 
tre coepris entre 1 et 6 inclus. 
..VEND 
1560 IF LEVEL=1 THEN BE5T0IE 1710 >AV 
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1570 IF LE¥EL=2 THffl SESTOSE 1870 >AH 
1SW IF LEKEL--3 THEU «ESTOIE 2070 >ÂC 
1S90 IF LEVEL'4 THE* lESTORE 2250 >A£ 
1600 IF LEVEL=5 THE» «ESTOIE 2430 >U 
1610 IF LEVEL=6 THE» IESTDBE 2610 >AZ 
1620 LOCATE 3.21:P«WT STÏIMG«<36,' >K 
o">:OIA«=CHA«<S:l«JM=8:I=320:!=206 
1630 LOCAIE U.23:PBiKT STilKKOU >BT 
î.'q'l:U)CATE 3,Z3:PB1HT STIIWtlO, 

VI 

1640 »TUE!=36:CLS I2:L0CATE 17,U:P >TG 

BIMT 'LEVEL'LEVa 

1650 FOI 1=1 TO 1000:NEIT >TL 

1660 SOU» 129,426,60.14.2,3:S0UH) >AQ 

2,213,20,14,2,3:S0UND 2,170,20,14,2 

,3:S0OND 2,142,20,14,2,3 

1670 FOU 1=1 TO 1000:HEIT:CLS I2:F0 >DB 

I IM TO 19:tEJU> A»:LOCATE 9,I:P«IN 

T A1:MFJT 

1680 IETUBH >FJ 

1690 • yt> 

1700 ' >TA 

1710 DATA ■milMMIll >E0 



1720 DATA ■auttullul >EH 

■ 

1730 DATA 'aeal lulluk ce >«I 

1740 DATA 'autfuftutdddddccddddd >HA 

1750 DATA 'uallullukdddddddddlldd >PK 
■ t 

1760 DATA 'tlllllllltll||IIUIIIiH X» 
1770 DATA ■MMMUMinWmWWtt >W 

t 

1760 DATA "aubbbaftufbbHbbbtfbk* >M> 

■ 

17M DATA 'aeabtbaMukbbffbbbMbob >NF 

■ 

1800 DATA 'aubbb>ilaafbb||bbb||bbb >MI 

1810 DATA 'aubbbaMukbbbbbbbbbbbb >NQ 

■ 

1620 DATA "aubbbuaufbbbbaaabbbl» >HD 

■ 

1630 DATA 'la m Ihukbhbbuabbbbb >HJ 
1B40 DATA "c uni cufbbbbuabbbbb >IK 
1650 DATA •ciiiiugculibbbbuabbbM) >PA 

1860 DATA ■JJJJJJJJlJJJjJJJJJDJUJ HK 



1870 ' >TJ 

1880 ' >TK 

1690 DATA • cMddddddddddddddoVkldddad >PH 

■ 

1900 DATA • dddddddchkWUdddddddiklddd >PD 
1910 DATA •lltlllllllillilllllillll >0B 
1920 DATA 'RlllIIBBimUMlllu >N0 
1930 DATA 'auttuaftauftuaftuu >*F 

1940 DATA 'aeattaultuatfualfaau >NL 

■ 

1950 DATA 'aultautluallaullaau >PA 
1960 DATA ■lnimiiiiiMmuiiiM >W 

1970 DATA ■llllIlIllillllIUlllllli >0H 

t 

1990 DATA 'uaftaaut|tituuffuu >m 

■ 

2000 DATA 'uafluukbbbkaauttuu >M 
2010 DATA 'auliaeufbbbtuulluu >NE 
2020 DATA '««uaaaaakbbbkuaaaaaaaa >NC 

2030 DATA 'aaauaaaalbbblaaaaaaaaaa >NT 

2040 DATA ■)J)J))J)l)l)))i))))))H1 XB 

2050 ' >K 

2060 ' >fA 

2070 DATA 'dddddddkbbbbbbbbbbbbbbbb >H1 

2060 DATA 'dddddddkbbbbbbbb >HE 

■ 

2090 DATA "dddttddkbbbbbbbb I I f >KU 

■ 

2100 DATA 'dddtlddkbbbbbbbb >HB 

2110 DATA 'ddduddkbbbbbbbb 1 1 I >KH 

2120 DATA 'lllillllbbb >EC 

2130 DATA ■ bbb f 1 I I I ( XTT 

2140 DATA 'ddddddddbbb )F1 

■ 

2150 DATA ■ddddddddbob (Il >GÏ 



2160 DATA 'dddfldddbbb >ET 

2170 DATA 'dddllddd >C« 

2180 DATA *ddd||ddd m Miron >HZ 

2190 DATA 'dddddddd nninnniil >JP 

2200 DATA 'dddddddd nn nniinn >HK 

2210 DATA 'dddddddd lu nnnnn >HL 
2220 DATA 'ddddddddddddddddnndnniiiin >PA 



2230 ' 
2240 ' 



>IK 
>TA 



2250 DATA 'lu lu lu lu lu >HA 
2260 DATA ' la la la la la >DH 
2270 DATA "llllIlIllillllIUlllllli X» 
2280 DATA 'kkkkkkkkkkkkkkkkkkkkkkkk MIE 
2290 DATA 'llllIIlllllllillllUllil >QD 
2300 DATA 'dddddddddddddddddddddddd >NG 
2310 DATA 'dfldddddddddllddffddtldd >PI 
2320 DATA 'dlldddddddddttddtfddtldd >PT 
2330 DATA 'dlldaaaaaandllddllddlldd >PL 
2340 DATA 'ddddaVOTEZaddddddddddddd >MI 
2350 DATA 'dttdaauundftddffddfUd >PM 
2360 DATA •dMduCPCandttddffddffdd >NN 
2370 DATA 'dildaauaandllddllddiidd >PQ 
2380 DATA 'dddduuunddddddddddddd XK 
2390 DATA 'dddddddddddddddddddddddd >PH 
2400 DATA •)|JJ))J)H)IJ!!U1j1!Hl >M 



2410 ' 
2420 ' 
2430 DATA • 



>ÏA 



/ 



2440 DATA 'aau bbbbb u mu >HT 
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2450 DATA 'alu bbbbb u nu >HZ 

■ 

2460 DATA 'aunua bfbtb u al. la >JF 
/ 

2470 DATA 'alanafa bbbbb u mu >K0 



2490 DATA 'uiniu bfbfbanaa afafa >LI 
2490 DATA ■alanala bbbbbanaa nui >LP 
2SO0 DATA 'uanua bfbfbanu afila >LP 
2S10 DATA 'btobnafa bbbbbanu auu >L£ 
2520 DATA "bfbnaaa bfbfbaubbbafafa >M 
2530 DATA 'bbbnafa bbbbbuubtbauu >m 
2540 DATA 'bfbiuuuiabfbfbaïubMnfafa >PE 
2550 DATA '«111111(11111111111111(1 >M 
2560 DATA 'bbbbbbbbnnnnnnminnniuinnn >QE 
2570 DATA "bbbbbbnnnnnnnnnnnnnnniuui >QG 
2580 DATA 'bbbniinnnitluinnniinnnnnniiiui >B* 



2590 ' 
2600 ' 



>TJ 
>TA 



2610 DATA 'aaundddddddddddddduau >KT 
2620 DATA 'aaunddddddddddddddauu >MJ 
2630 DATA 'aaunddddddddddddddaaua >NV 
2640 DATA 'aaunddddddddddddddaaua >«w 
2650 DATA 'aaundddddddddddddduau >H 
2660 DATA 'aaunddddddunau duau >MJ 
2670 DATA 'aaunddddddunau duau >NV 
2660 DATA ■aaaanddddda lau daaau >LE 
2690 DATA 'aaunddddd ira au duua >IW 
2700 DATA 'aaunddddd ay au duau >M> 
2710 DATA •aaaanddiliiiiiiia duau >MQ 
2720 DATA *aaau — — " i laau >KH 




2730 DATA 'aau 


aaauaau 


lau >JB 


2740 DATA 'au 


k 


k 


lu >cg 


2750 DATA 'u 






la >» 


2760 DATA '• 






1 >ÏG 



2770 ' >TJ 

2780 ' TITBE >TK 

2790 ' >U 

2800 CLS I3:BEST0BE 2860 >BC/ 

2810 FOI 1=4 T0 19:IEAD A»:L0CATE 9 >VV 

,I:P1INT AI:KEIT 

2820 LOCATE 20,U:PAFEt 1:PEN : PB I >ZK 

HT'0F':PAPFJ 0:PEN 1 

2830 CLS I3:L0CATE 11.23:PIIKT"ESP >TB 

ACEI POUS JOUE»' 

2840 IHK 2, 26:1* 3,26 >PH 

2850 BEST0BE 3230 : BETUBU >UG 

2860 DATA 'dddddddddddddddddddddddd >PK 

2870 DATA 'dddddddddddddddddddddddd >PL 

2880 DATA 'ddd dd dd dd ddd >ED 

2890 DATA 'ddd c cd c cd cccd cccdd >JC 

2900 DATA 'ddd cd c cd dd ddd >FH 

2910 DATA 'ddd c cd c cddc cddc cdd )JI 

2920 DATA 'ddd cd cd cd cdd > EU 

2930 OATA 'ddddcccddcccddcccddcccdd >ND 

2940 DATA 'ddddd d d >K 

2950 DATA 'ce c c ce c c ecc ce >FC 

2960 DATA * cd c c c cd ceded >EU 

2970 DATA ' d c c c d c c c >CU 

2980 DATA ■dccdcdcdcdccdcdcdcccdccc >Kf 

2990 DATA 'dddddddddddddddddddddddd >PP 

3000 DATA 'dddddddddddddddddddddddd >NF 

3010 DATA '111111111)11)111)1111)11 MW 



3020 ' 

3030 ' 6AGHEB III 



>IH 

>1J 



3040 ' >IK 

3050 DhLOCATE 1.1 :PB OrPIlKT iBIA >TP 

im01:PFJ llEI 

3060 SC0»E=SC0«E*500:LDCATE 12.2:PB >PN 

INT SCOCE 

3070 SPEED 1NK 1,1:B0SBEB 0.6:F0I I >TB 

=1 TO 3000:H3T 

3080 BOBDEB OrCLS I2:PEN 2:L0CATE 1 >AD 

O.IO.-PIWT'VOUS AVEZ TUE LE BOSS.V 

LOCATE 14,12:Pill(T'FELICITATI0"S' 

3090 FM 1=1 TO 3000:«£IT >TN 

3100 CLS I2:LDCATE 12. 10: PBIHT-HA IS >NH 

OSEBIEZ »0US':L0CATE 15,12:P!INT'L 
E REFAIRE" 

3110 FOI 1 = 1 TO 3000:«EIT >TF 

3120 CLS I2:L0CATE 11, 10:PB1»T"ET C >CH 
'EST KEPABTI...*:PEN 1 
3130 FOB 1=1 TO 3000:NEIT >TH 

3140 GA«G=0:LEva=l:CHAIi=0:eusUB 15 >Qr 
30: GOTO 640 

3150 GANG=0:LE«a=l:CHAt=O:G0SUB 15 >M 
30:G0T0 640 
3160 ' >TC 

3170 ' nusiguE >td 

3180 ' >TE 

3190 IF S0N=57 THEN SO»=O:IEST08E 3 >FF 

230 

3200 S0«=S0Nil:IEAD S,D:A«=":AI=IK >GP 

KET4MF A«=" • THEN BETUM 

3210 SOUND 6,Sl2,Dl4O,15,2,3:S0UKD >W 

2,S«S,D<20,5,4,0:SOUND l,200,Di5,4, 

2,3 

3220 GOTO 3190 >HH 

3230 DATA 239,1,253,0.5,284,0.5,319 >IF 

,1,368,1,379, 1,426, 1,47B,0.5,319,0. 

5,284,1.5,284,0.5,253,1.5,253,0.5,2 

38,1.5,239.0.5,239,0.5,253,0.5,284, 

0.5,319,0.5,319,0.75,358,0.25,379,0 

.5,239,0.5,239,0.5,253,0.5,284,0.5, 

319,0.5 

3240 'DATA 213,0.5,179,0.5,142.0.5, >TB 

190,0.5,179,0.5,213,0.5,478,0.5 

3250 DATA 319,0.75,358,0.25,379,0.5 >JI 

,379,0.5,379,0.5,379,0.5,379,0.5,37 

9,0.5,358,0.25 

3260 DATA 319,1.5,358,0.25,379,0.5, >BB 

426,0.5,426,0.5,426,0.5,426,0.5,379 

,0.25 

3270 DATA 358,1.5,379,0.5,426,0.25, >AJ 

478,0.5,239,1,284,0.5,319,0.75,358, 

0.25,379,0.25,358,0.25,379,1,426,1, 

478,1 

3280 • >TF 

3290 STMOL AFTEB 33:EMD >TU 
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MUSTUDIO 

// s'agit d'un programme 

musical, ce qui est déjà 

intéressant en soi. 

Ce qui l'est encore plus, c'est 

qu'il est destiné à des néophytes 

en informatique doublés 

d'ignares en musique. J'ai donc 

rendu MUSTUDIO (pour 

«MUSique sTUdio», en toute 

simplicité !) particulièrement 

SIMPLE et FACILE à utiliser. 



Jean-Manuel MARIES 



Concrètement, il permet d'écrire 
(entre autres) un morceau de mu- 
sique sur 4 octaves, 1 voie avec un maxi- 
mum de 999 notes. 
Dans le détail : 

Apres un RUN»M, l'écran se présente 
divisé en 3 parties principales : 

- En haut, la partition (70 notes à la fois) 

- En bas à gauche, le tableau de saisie et 
de lecture des notes. 

- En bas à droite, la fenêtre des options. 
Sur ces portées, les notes s'inscrivent au 
fur et à mesure de leur saisie. Elles doi- 
vent être affichées pour pouvoir être 
modifiées. 

Le tableau de Saisie/Lecture affiche 
en permanence les renseignements sur la 
note courante : 
Gamme (de 1 à 4) 

Note (do, doit la#,si) 

Durée (o .... , pointée ou pas) 

Numéro 

Kt est une constante de temps (tempo). 

Juste sous le tableau, les touches à 
utiliser sont indiquées avec au-dessus, les 
effets correspondants. Par exemple : 

- pour changer la gamme (- ou +), il faut 
utiliser les touches «/» et «V>. 

- pour se déplacer sur la partition, il faut 
utiliser les touches du curseur («<— »el 
«-»»). On ne peut pas aller au-delà de la 
dernière noie. 

Pour choisir une durée correspondant 
à o, , , , ou , il faut appuyer 
respectivement sur «Z»,«X»,«C»,«V», 
»B»ou«N». 




Valable pour 
D CPC 464 
H CPC 664 
B CPC 6128 



Pour valider une note, il faut appuyer 
sur <RETURN> 

Il y a encore 2 touches utiles : 

- le point «.» qui permet de pointer/dé- 
pointer une note. 

- la touche «] ) » dont le symbole rappelle 
le silence, et qui permet de transformer 
«o » en « » 

Pour revenir aux notes, il suffit de 
presser une touche correspondant à 
«Note»(A,W,...) 

La disposition des louches A, W,... 
n'a pas été choisie par hasard : elle sug- 
gère un clavier de piano (!). 

Enfin, encore une astuce : au cas où 
les durées «Standard» ne vous convien- 
draient pas, vous pouvez en donner de 
différentes, ponctuellement, en tapant di- 
rectement les chiffres. 

• Les options 

Vous étiez déjà étonné, vous n'avez 
pas tout vu. (Toute modestie mise à part). 
On choisit les options avec les touches 
verticales du curseur, on valide avec la 
barre d'espace. 

On peut se servir de toutes les options 
(sauf CATALOGUE) en donnant une ré- 
ponse «chaîne vide» ou «0» lorsqu'un 
nombre ou un nom (de fichier) est de- 
mandé. 

Lors de la saisie de nombres ou de noms, 
on ne peut pas corriger une erreur en ef- 
façant le dernier caractère introduit : il 
faut procéder par défilement. On retape 
la valeur correcte, le «rab» disparaît à 
gauche. (Faites-le, c'est classieux). 

• Aller sur une note 

On ne peut travailler (modifier) que 
sur les 70 notes affichées. Cette option 
permet de «changer» de bloc. 
Par exemple : les notes affichées sont les 
notes n°* 1 à 76 (bizarrerie : elles sont 
dans l'ordre: 70, 1,2,... 69). 
Si vous faites : aller à la note 80, les 
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nouvelles notes affichées sont les n"' 71 
à 140, et le curseur («î») est sous la note 
80. (11 est invisible, pour le faire appa- 
raître, il suffit de le déplacer). 

• Afficher Partition 

La première note de l'écran (ou pres- 
que, cf. «Bizarrerie») est un multiple de 
70 (son numéro). Ceci est dû à une ges- 
tion particulière de l'affichage. 
Donc, même si vous tapez «...à partir 
de la note n° 160», ce sera à partir de la 
note 140 (ah ! mais î). 

• Effacer des notes 

On peut effacer des notes de A à B 
compris. Ceci entraîne un déplacement : 
la note B+l vient en A, etc. 

Avant | A-ll a|a+1 I . . . 1 B- 1 1 B 1 B + l 1 B+2 I 



Après A-l B+l B+2 



- Insérer des vides 

On peut insérer N vides à la position 
P, la note P se trouve donc déplacée en 

P+N 

Avant |p-l | P |p+2 | 

Après |p-l |{...N-)1 "P"| 

• Copier une séquence 

On peut copier les notes n™ A à B 
inclus à la position P (incluse). 
Il faut donc insérer des blancs avant cette 
opération si on ne veut pas écraser les 
notes P et suivantes. 

• Modifier Kt 

Pour modifier le tempo, donner sa va- 
leur en dixième. Pour avoir Kt = 2.5, taper 
25. 

• Jouer un morceau 

Il faut l'avoir chargé avant car il n'y 
en a qu'un en mémoire à un moment don- 
né. On peut jouer d'une note A à une note 



B (incluses). Pour interrompre l'exécu- 
tion, il suffit de presser n'importe quelle 
touche. 

Remarque : Dans EFFACER et JOUER, 
on peut dépasser le nombre de notes en 
mémoire. Par exemple, pour jouer (ou 
effacer) l'ensemble d'un morceau, on peut 
donner comme valeurs de 1 à 999. 

• Charger/Sauvegarder un morceau 

L'extension «.MUS» est automatique- 
ment ajoutée au nom donné. 
Avant un changement, consultez par 
précaution le catalogue de la disquette, 
le programme ne gère pas les erreurs, il 
vous faudrait relancer le programme après 
une réinitialisation (à cause des «Sym- 
bol...»). 

Point important : le morceau est sauve- 
gardé sous la forme : Kt, Période, Du- 
rée, Période, Durée. . . ce qui rend le fi- 
chier très facilement récupérable par un 
autre programme (jeu, présentation,. . .). 
De la même façon, un fichier qui aurait 
celle structure pourrait cire envoyé à 
MUSTUDIO qui se charge de reconnaî- 
tre les notes d'après la période et la du- 
rée (pourvu que les gammes soient com- 
patibles). 



100 SYfIBOL AFTER 160 >PQ 

110 0PEN0UT "bldonVMEMORY H1MEM-1: >RZ 

CLOSEOUT 

120 SYMBOL 160,0,0,0,255,0,0,0,0 )ÏC 

130 SYMBOL 161.0,0,0,255,0.0,0,255 >AC 

140 SYMBOL 162,0,0.0,120.132,132,13 >FU 

2,120 

150 SYMBOL 163,4,4, », 124.132. 132, 13 >FN 

2,120 

160 SYKBOL 164,4.4,4,124,252,252,25 >F* 

2,120 

170 SYMBOL 165,7.4,4,124,252,252,25 >FF 

2,120 

180 SYMBOL 166,7.4,7,124,252.252,25 >FL 

2,120 

190 SYMBOL 167,7,4,7,124,255.252,25 >FB 

2,120 

200 SYMBOL 168,0.0,0,0,0. 126, 126.25 >BH 

5 

210 SYMBOL 169.0,0,0,255,126,126,0. >BP 



220 SYMBOL 170,56,6,12.4.4,4,62,96 >AN 

230 SYMBOL 171,127,1,2.2,4,4,8,8 >YL 

240 SYMBOL 172,127,1,62,2.4,4,8,8 >22 

250 SYMBOL 173,127,1,62,2,60,4,8,8 >»J 

260 ■ >BJ 

270 DEF1NT a-: )ÏF 




280 DIM noi»(12l.htll2).6es»lb).blc >VK 

»(6>.per(»8I.FP< 1000), FD( 1000). op»( 

10) 

290 FOI! touclurO.TO 12:READ noillto >0D 

uche),ht(touche):NEIT 

300 DATA "é..è".S,"Do",l,"Do l",l," >ZU 

Re",2,"Re t\2,"Mi",3 

310 DATA "Fa".», "Fa I", 4. "Sol', 5, 'S >LL 

Ql l\S,"La",6,"La •■.6, , SI",7 

320 FOR duree=l T0 8:desllduree)=CH >TY 

■1(161 tduree) 

330 blc»lduree)=CHR»U67»duree):NEI >FB 

T 

340 FOR 1 = 1 TO 48:READ perd) :NEtT >BE 

350 DATA 956,902. 851, B04, 758,716, 67 >VJ 

6,638.602,568,536,506 

360 DATA 478,451,426,402,379,358,33 >ZD 

8,319,301,284.268,253 

370 DAT» 239,225,213,201,190,179,16 >XG 

9,159,150,142,134,127 / 

380 D»T» 119, 113, 106,100, 95, 89,8», 8 )NZ 

0,75,71,67,63 

390 nop=10:F0R op=l T0 nop:READ opl >MP 

lopl :NEIT 

»00 D»T» "ALLER SUR UNE NOTE" >JF 

."AFFICHER PARTITION", "EFFACER 

DES NOTES", "INSERER DES VIDE 
S", "COPIER UNE SE0UENCE" 
410 DAT» "MODIFIER KT", "JOUER >RL 

UN MORCEAU", "CHARGER UN H0R 
CEAU", "SAUVEGARDER UN MORCEAU", "CAT / 
»L0GUE DISQUETTE" 

420 ' )RG 

430 Z«=CHRI18»CHR»(10> >QP 

440 vport»=CHR»ll61Hz»»CHR»(161Hz >JÏ 
«»CrlR«(l60)tz»f "tzHCHR»<161)»zl« 
CHR»(161HzH" '<z<»CHII(16l)<zt«CH / 
R»ll61l»z»tCHR»(160) 
450 curh»=CHR»(242>»CHR»(243):curv» >AH 
=CHR»(2*0)>CHR$<241) 
460 des|ai»=CHR»(162HCHR»<163)»CHR >VN 
«(164)tCHR»(165)»CHR»(166)tCHR«(167 
) 

470 desblcs»-CHR»(168>»CHR»(169nat >UV 
R«(170HCHR»(171HCHR>(172)tCHR»(17 
3) 

480 esi«=CHRI(24) >LP 

490 • >TD 

500 MODE 2:B0RDER 13 >NG 

510 WIND0U II.1,40,13,20:UINDOW 12. )LB 
1.80,1, 12:PEN I2,0:P»FEB I2,1:IMND0 



V 14,1, 40,21. 25:PEN I4,0:P«PER 14,1 

:G0SUB 3690 

520 UINDOU 13,41.80, 13,25:RIND0U SU >HL 

»P 0.3 

530 GRAPHICS PAPER 1: GRAPHICS PEN >EA 

,1 

540 CLSI2:F0R i=6 T0 75:LOC»TE 12, i >DL 

,2:PRINTI2,vportl:NEIT 

550 G0SUB 26O0:G0SUB 3260 ' Initiai 1 >TE 

satlon fenêtres 11 et 13 

560 Gi=2:Nn=0:No=l:Nt=l:Dn=l:kt!=2. >FF 

S 

570 LOCATE 1 1 . 31 , 4 : PS I NTt 1 , R I GHT* ( ■ >«D 

"«STRKKt!),») 
580 G0SUB 2730:GOSUB 2770,'GOSUB 282 >CK 
0:GOSUB 2880:GOSUB 3010 
590 '■•llliiiiiilivfifiiiiiiiimii >TK 
imHMmiH 

600 ' Boucle de Saisie >8G 

610 •- — >RH 



620 k»=INKEYI:IF k»=" THEN 620 ELS >«ï 

E kl-UPPERIlkll 

630 k=INSTR<"»lfSEDFTGYHW",k»):IF k >R» 

<>0 THEN 760 ' NI Note 

640 k=INSTRCZICVBN\kl):IF k<>0 TH >JF 

EN 800 ' Durée 

650 IF k»="." THEN 840 >NG 

1 Pointée 
660 IF M«V« OR k«="ç" THEN 880 >W 

' Gaue 
670 IF «="!• THEN 940 >PC 

' Blanc 
680 k=INSTR("1234567890",k»):IF k<> >LH 
THEN 980 ' Durée Spéciale 

690 IF k»=CHR»(13) THEN 1070 >UY 

' Validation No 
te 

700 k=INSTR(curb«,k»):IF k<>0 THEN >FH 
1150 ' Déplacement 

710 k=INSTR(curv»<" ",kl):IF k<>0 T >KL 

HEN 1230 ' Options 

720 PRINT CHRI(7):G0T0 620 -un 

730 • iitiiiifiiifiifiiiiiiiimiiii >ta 

IHIfllll 

740 ' NI Note )TB 

750 ' - — - >TC 

760 nt=k:G0SUB 2770:G0SUB 2880: L0C» >VC 
TE ll,16,6:PRINTIl.des«ai»:GOT0 620 

770 •— - >TE 

780 ' Durée >TF 

790 . >TG 
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800 Dn=k:G0SUB 2820:GOSUB 2B8O:C0T0 >GJ 
620 

8!0 . >BK 

B20 ' Pointée >TA 

630 ' >TB 

840 pt=N0T(pt):G0SUB 2B20:G0T0 620 >CG 

B50 . >TD 

860 ' Gaue >TE 

B70 , >TF 

8B0 IF k«="/" THEN Gl=Gl-l:IF Gl=0 >KH 

THEN Gl=4 

890 IF M=V THEN G«=GHl:iF Gi«5 KH 

THEN Gl=l 

9O0 G05UB 2730:G0SUB 2B80:G0T0 620 >BZ 

910 . >TA 

920 ' Blanc >TB 

930 ' >TC 

940 nt=0:G0SUB 2770:G0SUB 2880:L0CA >IT 
TE ll,16,6:PRINTIl,desblcsl:GOT0 62 


950 ' >TE 

960 ' Durée Spéciale >TF 

970 ' >TG 

980 zd«="00"»kl:ok=-l:L0CATE 11,17, >BB 
4:PIINTtl,zd» ' 

990 VH ILE ok >GH 

1000 k«=INKEV»: IF k«=" THEN 1000 >ZM 

1010 IF INSTRC0l23456789".k«)=0 >VU 

THEN ok=0:G0T0 1030 

1020 ld*=RIGHT«(zd«tk»,3):Dn=-VAL 'OU 

lzdil:LOCATE 11, 17.4:PRlNTIl,zd» 

1030 IIEND:GOT0 620 >HD 

1040 ' >IN 

1050 ' Validation Note >IJ 

1060 ' >IK 

1070 FP(No>=-(NtOOHperl(Gl-lHI2t >ÏP 
Ntt : IF Dn>0 THEN F0(No>=(I-pt/2)i2" 
(6-Dn) ELSE FD(No)=0n 

1080 No=Notl:IF No)NN THEN NN=No >AL 

1090 IF No KOD 70=0 THEN FOR 1=6 TO >KL 
7b : LflCATE 12, i,2:PRINTI2,«port»:NE 
XT 

1100 GOSUB 3010:LOCATE ll,16.6:PBIN >ÏG 
Tll.desra.l: IF FD(Nol=0 THEN GOSUB 
2880 

1110 GOTO 620 >EG 

1120 ' >IG 

1130 ' Deplaceient >IH 

1140 ' >IJ 

1150 IF k=2 THEN 1180 >NZ 

1160 IF (No KOD 701=1 THEN PHINT >BK 
CHRI(7)tCHR«(8h:G0T0 620 / 

1170 No=No-l:GOSUB 3010:GOTO 620 >AL 

1180 IF (No HOD 70)=0 08 No>NN THEN >LR 
PBINT CHR«17)»CHRI(8l::GOT0 620 




1190 No=Noil:GOSUB 3010:G0T0 620 >AL 



1200 'iHimHhlIlHIHIimiHIII )XF 



1210 ' Options 
1220 ' 



>IG 

m 



1230 IF k>l THEN 1260 >NI 

1240 LOCATE 1.2top:PRINT opllopi: >HG 

op=op*l:IF op=0 THEN op=nop 

1250 LOCATE l,2<op:PBINT esil:op» >IY 

(op);esil:G0T0 620 

1260 IF k=3 THEN 1290 >NE 

1270 LOCATE l,2*op:PRINT opl(op): >HF 

op=op*l:IF op)nop THEN op=l 

1260 LOCATE : . . • .i.:l'R I NT esil;opl >IB 

(opl;esi»:GOTO 620 

1290 ON op GOSUB 1340,1430,1510,169 >JT 

0,1860,2050,2420,2250,2130,2360 

1300 GOSUB 3260:GÛT0 620 )RA 

1310 . >XH 



1320 ' Aller sur une note 
1330 ' 



)IJ 

m 



1340 CLS >ZH 

1350 PRINT esi«;"Aller sur une note >AV 
";esi«:PRINT 

1360 PRINT" I I y a ";NN:" Notes." >DD 

1370 GOSUB 3420 >JC 

1380 IF INT(z/70l = INT(No/70) THEN N >CD 
o=z:GOSUB 3010:RETURN 

1390 za=INT(z/70H70:No=z:G0SUB 333 >NK 
OiRETURN 

1400 ' >IH 



1410 
1420 



AFFicher la partition 



>IJ 

>IK 



1430 CLS:PRINT esi»;"Aff lcher la pa >KU 

rtition";esil:PRINT 

1440 PEINT- I I v a \NN;' Notes." >DC 

1450 PRINT:PRINT"Afflcher a partir >GZ 

de la note No:" 

1460 GOSUB 3420:1F z=0 THEN RETURN >BI1 

1470 za=70HNT((z-ll/70Hl:No=za:G0 >JN 

SUB 3330:G0SUB 3010:RETURN 

1480 ' — - >ÏF 



1490 ' Effacer des notes 
1500 ' 



>YG 
>XJ 



1510 CLS:PRINT esi«:"Ef facer des no >0Z 

tes";esi»:PRINT 

1520 PRINT"! I y a ";NN;" Notes. ":L0 >CU 

CATE 2,13:PRINT"(0O0) Pour sortir." 

1530 LOCATE I.S:PRINT"A partir de I >GL 
a note :":G0SUB 3420 

1540 LOCATE 23.5:PRINT z«:za=z:IF z >PW 
=0 THEN 1650 

1550 LOCATE l,6:PRINT"Jusqu'a la no )EC 
te :":G0SUB 3420 

1560 LOCATE 23,6:PRINT z»:zb=z:IF z >PA 
=0 THEN 1650 

1570 IF za>zb THEN z=za:za=zb:zb=z >DF 

1580 ' >ÏG 

1590 zc=zb-zatl >GJ 

1600 FOR zl=za TO NN >NZ 

1610 IF zltzONN THEN zfp=0:zfd=0 >TÏ 
ELSE z!p=FP(zHzc):zfd=FD(zi»zc) 

1620 FP(zil=zfp:FD(zi)=zfd >IP 

1630 NEIT >LB 

1640 NN=NN-zc >UE 

1650 RETURN >FF 

1660 ' >ÏF 



1670 ' Insérer des vides 
1680 • 



)ÏG 

m 



1690 CLS:PRINT esi«;"lnserer des vl >0R 

des';esil:PRINT 

1700 PRINT'II y a ":NN:" Notes. ":L0 >CU 

CATE 2,13:PRINT"I00O) Pour sortir." 

1710 LOCATE 1.5:PRINT"A partir de I >GL 

a note :":G0SUB 3420 

1720 LOCATE 23,5:PRINT z«:za=z:IF z >PV 

=0 THEN 1820 

1730 LOCATE l,6:PRINT"ïides a inser >EF 

er :*:G0SUB 3420 

1740 LOCATE 23.6:PRINT z»:zc=z:IF z >PA 

=0 THEN 1820 

1750 IF za»zc>999 THEN PRINT CHRK7 >ZF 

)»CHR»(8l,-:GOT0 1820 

1760 ' >ÏG 

1770 NN=NN»zc >UG 

1780 FOR zi=NN TO zatzc STEP -1 >ÏX 

1790 FP(zil=FP(zi-zc):FD(zi)=FD(z >JB, 

1-zc) / 

1800 NEIT >LA 

1810 FOR zi=za TO za<zcl:FPIzil=0: >I)U 

FD(zl)=0:NEIT 

1820 RETURN )FE 

1830 '---- >ÏE 



1840 ' Copier une seouencp 
1850 ' ■ 



>ÏF 
>ÏG 
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1860 CLS:PRIMT esit;"Copier une seq >GG 

uence":esil:PRINT 

1670 PRINTMI y a ";NNi" Notes. ":L0 >CE 

CATE 2.13:PRINT"<000> Pour sortir." 

1BB0 LOCATE 1.5:PRINT"A partir de I >GV 

a note : " : GOSUB 3420 

1890 LOCATE 23,S:PHIMT z»:za=z:IF z >PÏ 

=0 THEN 2010 

1900 LOCATE 1.6:PRlNT"JuSQu'a la no )EB 

te :":G0SUB 3420 

1910 LOCATE 23.6:PRIMT zl:zb=z:IF z >PP 

=0 THEM 2010 

1920 LOCATE 1,7:PR1NT"A la position >DJ 

: ■ : GOSUB 3420 
1930 LOCATE 23,7:PRIKT z»:zc=z:IF z >PU 
=Q THEN 2010 

1940 IF 2a>zb THEN z=za:za=zb:zb=z >0G 
1950 IF zc<=zb OR zc»zb-za>999 THEN >QT 
PR1NT CHR»(7)»CHR»18);:G0T0 2010 

i960 • >YJ 

1970 HN=NN<zb-zatl )HT 

1960 FOR zl=za TO zb >PC 

1990 FP(zc*zi-za)=FP(zi>:FD(zcizi >RG 
-zal=FD(zi> 

2000 NEIT >KD 

2010 RETURN >EG 

2020 ■ >IG 



2030 
2040 ' 



Modifier M 



m 
>u 



2050 CLSlPRINT esi»; "Modifier Kt •; >VN 

esi«:PBIHT 

2060 LOCATE l,5:PRINT"Nouvel le va le >JR 

ur moi :':GOSUB 3420 

2070 LOCATE 25.5:PRINT tlllF z=0 TH >HZ 

EN 2090 

2080 kt!=z/10:LOCATE 11. 31 . 4: PSI NTI >MN 

l.lIGHTil" "tST8»(Kt!),41 

2090 RETURN >FE 

2100 ' >IF 

2110 ' Sauvegarder un lorceau >IG 
2120 ' >ÏH 

2130 CLSiPRINT esi«; 'Sauvegarder »| >WÏ 
eszl:PRINT 

2140 GOSUB 3SS0 >IC 

2150 IF z»=" * THEN RETURN >ÏP 

2160 z$=z«f.miS':0PENOUT z» )IG 

2170 PHIMTI9,Kt! >LH 

2180 PBINTI9.NN >LE 

2190 FOR zi=l TO NH:P«INTI9,FP(zl >CC 
>:PRINTl9,FD(zi>:NEIT 




2200 CLOSEOUT 
2210 RETURN 
2220 ' 



2230 ' Charger un lorceau 
2240 ' 



>YE 
>EJ 
>IJ 

>IK 

>YA 



2250 CLSiPRINT esili'Charter un ior >GE 

ceau ";es«»:PR!NT 

2260 GOSUB 3550 >IF 

2270 !F z«=" ' THEN RETURN >ÏT 

2260 z«=z«»".r1US , :0PENIN z« >W 

2290 INPUTBS.Kt ! : INPUTI9.NN >YA 

2300 FOR zi=l TO NN:INPUTI9,FP(zi )CB 

):INPUTI9,F0(zi):NEIT 

2310 CLOSEIN >LG 

2320 RETURN >FA 

2330 ' >YA 



2340 ' CATalogue 
2350 ' 



2360 CLS:CAT 

2370 WHILE INKEÏ»=":«END 

2360 RETURN 

2390 ' 



>YB 
)YC 

>JG 
>UH 
>FG 
)YG 



2400 ' Jouer un lorceau >XJ 
2410 ' >IK 

2420 CLS:PRINT esi!:Mouer un aorce >VB 

au'iesit 

2430 PEINT"! I y a ";NN;" Notes. VLO )CX 

CATE 2.13:PRINT"IOOOI Pour sortir." 

2440 LOCATE 1,S:PRINT'A partir de I )GH 
a note : ■ : GOSUB 3420 
2450 LOCATE 23,5:PRINT zl:za=z:IF z >PX 
=0 THEN 2550 

2460 LOCATE l,6:PRINT'JuSQu'a la no >ED 
te :':GOSUB 3420 
2470 LOCATE 23.6:PRINT z»:zb=z:IF z )PB 
=0 THEN 2550 

2480 IF za>zb THEN z=za:za=zb:zb=z >DG 
2490 IF zb>999 THEN PRINT CHRX7HC >ÏP 
HR»I8);:G0T0 2550 

2500 CLEAR INPUT:PRINT"iPressez une >YG 
touchel":UHILE INKEY» = "":IIEND 
2510 FOR zi=za TO zb >NA 

2520 zfp=FP(zl):zd=kt!lABSlFD(zl> >HZ 
l:IF zd=0 OR INKEYtO" THEN zi=999 



9: GOTO 2540 

2530 SOUND l.zf p.zd, 15:S0UND i.zf >JR 

p, 0.5,0 

2540 NEIT >LC 

2550 RETURN >FF 

2560 END ' Sliple précaution /ZB 

2570 ' >YG 

2580 ' Initialisation fenêtre 11 >YH 

2590 ' >YJ 

2600 CLS: >GE 

2610 PRINTIl,CHR»(150|tSTRING»(5,t5 >EA 

4HCHRIH56HSTRING»l7,154)iCHR»115 

B>tSTRING«(7,154HCHR»(156)»CHR»llS 

0)tSTRING$l4.154UCHRill56)tCHRI(15 

0HSTRING«(4,154)tCHR»(156) 

2620 PRINTIl,CHR«(149);"Gane':CHR« >HZ 

(149);"Note ";CHR«ll49);"Duree " 

|CHR»U49>;CHR»(149>;" No "iCHBKH 

9>;CHR»(149>;" Kt ";CHR»(149) 

2630 PRINTIl.CHfi»llSlHSTRING»(5,tS >EL 

4)*CHR«I159HSTRING»(7,1S4)*CHRK1S 

9>tSTRING»(7,154>tCHi»(157HCHR»(15 

l)»STRING»U,154HCHR»(157>tCHR»(15 

1KSTRING«(4.154)*CHRII157) 

2640 PRINTIl.CHRS(149)iSPACE*(5XCH )UL 

R»( 149) •SPACE»(7)»CHR»( 1491 »SPACE»C 

7)tCHRl(149HCHR»(149>tSPACE»(4HCH 

8»(I49)*CHR»ll49l»SPACE»(4)tCHR»U4 

9) 

2650 PRINTtl.CHRill47l>STRING«(5,15 >EH 

4)tCHRl(155ltST8INGI(7,l54)tCHR»(15 

5)»STRING»(7,154)»CHR»(153|tCHR$<14 

7>tSTR]NGK4,lS4HCHR«(153HCHRlll4 

7)»STRING«(4,154ltCH!l(153) 

2660 PRINTI1," - ♦ 'idesg >U 

ail;" - t' 

2670 PRINTI1," K TYU" >ÏC 

2680 PRINTI1." / c ASDFGHJ ZXCVBN >KC 

";CHR»(242)i" ";CHR»I243) 
2690 RETURN >GA 

2700 ' >YB 

2710 ' Aff Gaiie <GM) >YC 

2720 ' >YD 

2730 LOCATE I1.2,4:PRINTI1."1234":L >XJ 

OCATE ll.HGrt,4:PRINTIl,esi«:CHR«(4 

8>Gr1>;esi»:RETURN 

2740 ' >YF 

2750 ' Aff Noal (Nt) >YG 

27GO • >v H 

2770 IF nt=0 THEN z=0 ELSE z=nt HOD >WE 
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12:1F z=0 THEN z=12 

2780 LOCATE 1 1 . 8. 4:PR INTt 1 . LEFTtl no >BY 
l»(z><" ".5):BETUBM 
2790 ' - - — - >" 



2800 ' Aff Durée (Dm 
2810 ' — - 



>ÏC 



2820 z=2'(6-Dn):lF Pt THEN z=z>1.5 >BA 

2830 LOCATE 11.16, 4:PRINTII,z;" ": >YU 
LOCATE ll.21,4:PBlHT*l.des*<Dn>:: IF 

Pt THEN PRINTI1,"." ELSE PRINTI1." 

28*0 RETURN >FH 

2850 ' >ÏH 

2860 ' Aff Des Note Courante >VJ 
2870 ' >YK 

2880 zn=No:zp=pt:zGl=Gl:IF nt=0 THE >NN 
N znt=0 ELSE znt=IGl-IH12«nt 

2890 IF Dn)0 THEN zd=Dn ELSE 2d=3 >AK 

2900 ' >YD 

2910 ' Ait Des SSPRG >YE 

2920 '-- >YF 

2930 zi=lzn HOD 70H8«40:IF znt=0 T >PE 

HEN z»=blc»(zdl:zv=31O:GOT0 2950 

2940 zy=262t4KlzGi'l)"7tht(((znt-l >GP 

I ItOD 12>*l>-l>:z»=desl(zd) 

2950 LOCATE 12. (zn MOD 70)»6,2:PRIN >NQ 

T 12, «port» 

2960 TAG I2:H0»E zi,zy:PRINTI2.z»; : >DN 

IF zp THEN PRINTI2.".": 

2970 TAGOFF 12: RETURN >Q0 

2980 ' >2B 



2990 ' Alf No 
30O0 ' 



>B 



3010 LOCATE I1,25,4:PRINTI1,RIGHT»1 >BK 

• "•STRXNoMI 

3020 LOCATE l2,5<(No MOD 70),12:PR1 >LG 

NTI2." • " 

3030 IF FD(No)=0 THEN RETURN >UU 

3040 z=FP(No):GOSUB 3110:Gi=l:Nt=z: >NL 

UHILE Nt>12:r.t=nt-12:Gl=Gl«l:YEND 

3050 z=FD(No!:G0SUB 3170:Dn=z:Pt=zp >ET 

3060 GOSUB 2730:G0SUB 277O:G0SUB 28 >EU 

20 

3070 RETURN >FD 

3080 ' >YD 



„~\Jf 






V*l 



fiif 




3100 



>IG 



3110 IF z=0 THEN RETURN >RL 

3120 FOR zIM TO 48:1F z=Per(zi) TH >RE 
EN z=zi:zi=99 

3130 NEIT:RETURN >HV 

3140 ' >ÏA 



3150 ' TYPNOTE 
3160 ' 



>TC 



3170 zp=0 >GC 

3180 IF z<0 THEN z=3:RETURN >UB 

3190 IF (z HOO 31=0 THEN zp=-l:z=z/ >DP 

1.5 

3200 FOR zl=0 TO 5:1F z=2"(6-zll TH >!G 

EN z=zi:zi=99 

3210 NEIT >KH 

3220 RETURN )FA 

3230 ' )TA 



3240 ' Alf Options 
3250 ' 



m 
>rc 



3090 ' HAUTNOTE 



>YE 



R IMG* 13, 154 liCHBI 1156): LOCATE 18,10 

:PRINT CHRJ1U9) :" ";CHR»( 149, :L0 

CATE 18. 11 :PRIMT CHR«U47);STRING»( 

3,154!;CHR»1153) 

3430 z«="0O0 , :kl=":UHILE k»OCHR»( )ER 

131 

3440 LOCATE 19,10:PRINT z« )ÏU 

3450 kl=[NKEY»:IF k»=" THEN 3450 >ZL 

3460 IF k»=CHR)(13) THEN 3490 >VU 

3470 k=INSTR("0123»56789\k»):IF >YW 

k=0 THEN PRINT CHR»(7)»CHR»(8)::G0T 

3450 

3480 z»=RIGHT»[z»»k»,3) >RG 

3490 UEND:z=VAL(z»> >PR 

3500 IF z=0 OR z>NN THEN PRINT CHR» >PN 

(7HCHRK8): 

3510 RETURN >FC 

3520 ' >VC 



3260 CLS:PRINT cur»»:' et <ESPACE>" >FC 

:PR1NT STRING»I39."") 

3270 FOR 1=1 TO nop:LOCATE l.i»2:PR >Ï2 

INT op»(l):NEXT 

3280 op=l:LOCATE 1,3:PRINT esz»;op« >HU 

(l):esit 

3290 RETURN )FH 

3300 ' >ÏJ 

3310 • Ait Part >IK 

3320 ' >YA 

3330 FOR zl=za TO za»69 >RP 

3340 z=FP(z1):G0SUB 3110:znt=z:zG >AB 

l=l:WHIL£ z>12:zGl=zGi*l:z=z-12:YFJ J 

D 

3350 z=FD(zi):GOSUB 3170:zn=zi:zd >FU 

=z 

3360 GOSUB 2930 >ZG 

3370 NEIT )LE 

3380 RETURN >FH 

3390 ' >ÏH 



3400 ' Sais Nb 3cf 
3410 ' — 



>IK 



3530 ' SaisNoiFic 
3540 ' 






3550 LOCATE 5.10:PRINT" ":CHR»(1 >KF 

50I;STRING»(12,154):CHR»(156I 

3560 LOCATE 5, ll:PRINT"Noi ";CHR«(1 >JJ 

491;" .r1US\CHRI<149> 

3570 LOCATE 5, 12:PRINT" - iCHR»(l )LE 

47);STRING»(12,154l;CHR»(153l 

3580 z«=" " >UF 

3590 UHILE k«OCHR»(13> )RU 

3600 k»=INKEY»:IF k»=" THEN 3600 >2E 

3610 IF k«=CHR»<13l THEN 3640 >ÏP 

3620 k»=UPPERI(k»):lF lk«<"A" 01 >TA 

k»>'Z") AND k»<>' " THEN PRINT CHR» / 

(7)tCHR»(8);:G0TO 3600 

3630 z»=RIGHT»lz»tk«,8l:L0CATE 10 >PI 

,11:PRINT z» 

3640 REND >JH 

3650 RETURN >FH 

3660 ' >YH 



3670 
3680 ' 



AffFenl4 



>ÏJ 

>yk 



3420 LOCATE 18.9:PRINT CHR»(150);ST >ZR 



3690 CLSI4:L0CATE 14, 10, 1:PRINTI4,C >UL 

HR»(150):STRING»(17,154):CHR»I156) 

3700 LOCATE 14. 10.2:PRINTI4,CHR»(14 >HP 

9):' H U S T U D I ';CHJti(149>:L0 

CATE 14, 10,3:PRINTI4,CHR«(1471;STRI 

NG»I17,1S4):CHR»(153) 

3710 PR1NTI4, "Copyright : Jean Manu )ÏZ 

el MARIES" 

3720 PRINTIA.'Les Buis, quels buis ? >PX 



3730 RETURN 



>FG 
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Valable pour 
H CPC 464 
H CPC 664 
M CPC 6128 



Golf 



Pour vous initier loin 

des parcours pleins d'air pur 

(c'est dégoûtant) aux joies du 

golf, n 'hésitez pas à taper ce 

listing qui vous entraînera sur 

16 parcours différents. Le 

joystick est obligatoire et la 

règle du jeu est incluse 

dans le listing. 



Patrick JEANJEAN 




1U Hl 



M ■ JEANJtAN Minier. 




i\t 


«U ' 




.'Ul 


su ' présente 
ou ' 




tijc 

tu- 


)u ■ luukNUI : GUL> 
ou • 




/Lb 
,'LH 


yû ' tiiifititifttitfttifi 




,'U 


luu uni Mnu»t2):DIH troutuoi 




^If- 


nu MINHul AIltK 2S6:GU6'Ull JIUU 




lit 


120 ' 




)IUI 


UU 'n<»> fKhbtNTAIlUN >«"• 




>St 


UU ' 




/RP 


I8U ' UhUJKS 




/RG 


iou MOUE 1 : INK U.9 :BUUItH 9: INK 


,2 


/HL 


6:INK 2.6:1* 5,3:INK S.lâ: INK 6 
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: INK 7, 12: INK 8,4,7:1NK 9,2«:1IIK 


10 




,2:iNK 11, ni* 12, 15: IN»! 13,26,0:1 




Ht. U, il: INK 16,13 







170 PLOT 1 , 1 . L :DRAw 630, l:DBAU 639, /US 
399:DBAU 1,309:DBAU 1,1 

180 PLOT 6.6:0RAy 6Ô3.6:ÛRAW 633.39 >7.E 
3:DEAU 6,393:D8AU 6,6 
100 FOR a=4 10 8:LÛCATE ll,a:FAPER ;KJ 
t:PElHT 3TEINCK21," "):NEIT 
200 LOCAÏE U.6:PEN 2:PRINT"T0ORNOI ;FK 
0E GOLF" 

210 PAPER 0:PEN 3:F0R 3=3 T0 20:L0C JAII 
ATE 10,a:PRINT CIIR»<138):L0CATE 32, 
a:PRINT CH8*(133i :NEXT 
220 ' HENU /RE 

230 RESTORE 2260:FÛR 1=1 T0 2:READ )Xl 
al:ienutnl=a»:NEIT 

240 FOR i=l TO 2: PAPER 0:PEN hLÛCA /CC 
TE 15.13>2ii:PlîlNT ■emi»nl:NEÏT:ch 

011 = 1 

250 L0CATE 15, 13i2«chou :PRINT CHR1 il) 
12* ) ; lenu» 1 cho i i i ;CHRi ( 24 ) 

260 FOR 1=1 T0 25û:NEÏT /QG 



270 IF l«CEÏ(76iO 1 THEN GOTO 310 /AL 

260 IF INKEïl73) = -l THEN GOTO 2Ï0 >ZÏ 

200 L0CATE 15,13>2ichon:FRINT lenu /NT 

tlcholxj :chon=cholxtl:IF cholx=3 T 

HEN cnan = l 

300 CÛTO 250 >ÏC 

310 ON chou G0SUB 560,530 >UC 

320 GOTO 570 >7J) 

330 ' /RC 

340 '••"• REGLE OU JEU nul ZRH 

550 ' /fij 

360 H0DE HBORDEB IsIMC Ci, 1 :rATEfi 1 /IIA 

:FEN 2 

370 FOR a=l T0 3:L0CATE U,a:P8INT >7J 

STRINGtlU." "):NEIT 

380 L0CATE 15,2:PR1NT"RECLE DE JEU" )EC 



390 PAPER 0:PEN 1 



>u 
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400 LOCATE 1,6:PBIHT" Ce jeu» vo >YT 
us penet de jouer au golrsur un pa 
rcours de 16 trous. 1 
410 LOCATE 1,9:PRINT" Toutes les )HG 
couandes s'effectuent a l'aide d' 
un JOrSTICK." 

420 LOCATE 1,12:PB1NT" Voua deve >JV 
z tout d'abord s'election- ner le t 
erratn . Ceux-ci sont classes sul 
vant leurs niveaui de difficultés. 
430 LOCATE 1,16:PBIHT" Pour sele >CÏ 
ctlonner la force et l'an- gie de f 
rappe de la balle , utilisez le JOV 
STICK. Il vous est possible d'ajusté 
r votre frappe suivant le principe 
cl- dessous :" 

440 LOCATE 1,22:PR1NT" HAUT : lïf 
tl BAS : -1" 
450 LOCATE 1,23:PBINT" DB01TE : >AK 
•10 GAUCHE : -10" 
460 GDSUB 520 >HG 

470 CLS:PBIHT" SI un arbre.une b ;fû 
arrière ou un pan- neau se trouve s 
ur la trajectoire de la bal le, elle 
rebondira dessus." 

460 LOCATE l,, r >:PSINT" Si la bail >ZW 
e toibe dans l'eau ou sortdu terrai 
n , 11 vous faudra reconencer ie p 
arcours." 

490 LOCATE 1,9:PBIHT" Si la bail )JV 
e toibe dans le sable, une puissance 
de trappe supérieure a la nor-ule 
sera nécessaire pour la dégager." 

500 LOCATE 1,13:PBIHT" Il vous f >HX 
audra egaleient prendre en coipte I 
e vent qui souffle sur le par- cou 
rs." 

510 LOCATE 1,I7:PRIHT" A la fin )AÏ 
d'un parcours , appuyez sur< F1BE > 
pour revenir au ienu. ■ 
520 LOCATE 18,25:PBIHT CHRK24)'" F >RJ 
IBE ">CHR»(24I 

530 IF INKEY(76><>-1 THEH GOTO S50 >AR 
540 IF IWET(73)'-1 THEH GOTO 530 )ZU 
550 RETURH >ZF 

560 ' >TB 

570 '»••• CHOIX DU PABCOUBS ••■>• >TC 

580 ' >TD 

590 MODE 1:IHK 0,l:B0RDEfi 1:PAPER 1 )HG 

:PEN 2 

600 FOB a=l TO 3:L0CATE 12,a:PRINT )ZU 

STBING«(19," "):NETT 

610 LOCATE 13,2:PBIHT"CH0II DU PABC >U 

OUBS" 

620 BEST08E 2270: FOB ••! TO 16:BEAD >AA 




a»:trou»(il-a»:NHT 
630 FOB 1=1 TO 16:PAPEB 1:PEH 2:L0C >ZB 
ATE 15,6H:PRINT trou»(l):HEXT:choi 
1=1 

640 LOCATE 15,6tchoii:PBIHT CM» (24 )FU 
l;trou»(choil)|CHRt(24] 
650 FOB 1=1 TO 150:NEIT )BA 

660 IF IWCEY(76K>-1 THEH GOTO 700 )AT 
670 IF 1MKEÏ(73I =-1 THEH GOTO 660 )ZV 
680 LOCATE 15,6«choli:PfilKT troutlc >LE 
hoiil:choii=choiKtl:IF chou=17 THE 
H chou=l 

690 GOTO 640 >AS 

700 IHK 0,9:0N choil G05UB 750,780, >HZ 
810,840,880,920,960,1000,1040,1100, 
1160,1200,1270,1310,1370,1470 
710 GOSUB I660:GOTO 2670 )BT 

720 ' >RK 

730 'mu DECOBS ••••• >TA 

740 ' >TB 

750 ' TBOU 1 >TC 

760 HODE OfBOBDEB 1: PAPER 0:nb=7:co >QU 

ul=S:RESTOBE 2290:G0SUB 1570:nb=6:c 

oui fiifiESTOBE 2300:GOSUB 1570 

770 l=9:y=2:G0SUB 15*0:PR[HT"01":«= >CF 

2:y=10:G0SUB 1550: l=17:y=10:G0SUB 1 

5S0:i = 16:y-9:G(JSUB 1560:coul = 7: 1=80 

:j=240:BETURH 

780 ' TBOU 2 >TF 

790 MODE 0:B0BDEB 1:PAPEB 0:nb=8:co >QU 

ul=5:REST0RE 2320:GOSUB 1570:nb=5:c 

oul=6:REST0RE 2330:G0SUB 1570 

600 i=3:y=4:G0SUB 1540:PRIHT"02":i= )ZA 

2:y=19:GQSUB 15S0 : 1=17 : y=2:G0SUB 15 

50:i=l8:y=l:G0SUB 1560 : coul = 7 : 1 =80 : 

j=95:BETUBH 

810 ' TBOU 3 >BK 

820 HODE 0:B0BDEB 1:PAPER 0:nb=13:c )8rl 
oul=S:BESTORE 2340:G0SUB 1570:nb=5: 
coul=6:BEST0RE 2350:G0SUB 1570 
830 l=12:y=6:G0SUB 1540:PBIIfT"03":i >CÏ 
=3:y=2:G0SUB 1550:i=17:y=18:G0SUB 1 
55O:«=4:y=l:G0SUB 1560:coul=7:i=560 
:i UOiRETURH 

640 ' TBOU « >TC 

850 HODE 0:B0RDER HPAPER 0:nb=7:co )0A 
ul-5:BEST0BE 2360:G0SUB 1570:nb=5:c 
oul=6:REST0RE 2370:G0SUB 1570 
860 i=8:y=3:G0SUB l540:PRIHT"04":i= >GH 



2:y=U:G0SUB 1550:1=17 :y=M :G0SUB 1 

SS0:i=18:yM0:G0SUB 1560 

870 coul=9:i = 14:y--8:G0SUB 1580:1=12 )GL 

:y=15:G0SUB 1590:coul=7:i=8O: (=225: 

BETUBN 

880 ' TROU 5 >TG 

890 MODE 0:B0BDEB liPAPER 0:nb=8:co >QK 

ul=S:B£STOBE 2360:G0SUB 1570:nb=5:c 

oul=6:BEST0BE 2390: GOSUB 1570 

900 i=13:y=2:G0SUB 1540:PBIMT"05":i >GÏ 

=2:y=2:G0SUB 1550:i=17:y=19:G0SUB 1 

S5O:i=18:y=18:G0SUB 1560 

910 coul--9:i = 9:y 9:G0SUB 1620:coul= >UH 

10:«=l3:y=17:G0SUB 15BO:coul=7:i=BO 

:l=366:fiETUBH 

920 ' TBOU 6 )T8 

930 IWDE 0:B0BDEB 1:PAPEB 0:nb=6:co )0N 

ul=5:BEST0BE 24OO:G0SUB 1570:nb=6:c 

oul=6:REST0RE 2410:GOSUB 1570 

940 l=2:y=3:G0SUB 1540:PBINT"06":i= >GJ 

2:y=19:G0SUB 15S0:i=l7:v=19:G0SUB 1 

550:i=18:y=lB:G0SUB 1560 

950 coul=9:i=9:y=5:G0SUB 1590:coul= )ZD 

10:i=13:y=17:GOSUB 15B0:i=15:y=2:G0 

SUB l630:coul=7:i=80:1=95:BETUBH 

960 ' TROU 7 >TF 

970 HODE 0:B0BDEB 1:PAPEB 0:nb=6:co >QV 
ul=5:BEST0BE 2420:G0SUB 1570:nb=4:c 
ou 1=6: DESTORE 2430: GOSUB 1570 
980 i-8:y=ll:G0SUB 1540:PBINT'07":i >CB 
2:y=19:G0SUB 1550:i=2:y=2:G0SUB 15 
S0:i=3:y=l:G0SUB 1560 
990 coul=9:»=17:y=18:G0SUB 1600:cou >TJ 
l=10:i=15:y=3:G0SUB 1620: < =2: y=6:G0 
SUB 15B0:PL0T l.lSOiDBAWB 400,0,12 
:PL0T 1,152:DBAUR 400,0:coul=7:l=80 
:t=95:BETUBH 

1000 ' TBOU B >ÏD 

1010 HODE 0:B0BDEB 1:PAPEB 0:nb=9:c >Rfi 

oul=5:REST0BE 2440:G0SUB 1570:nb-5: 

cou 1=6: RESTORE 2450:G0SUB 1570 

1020 i=2:y=17:G0SUB lS40:PfilHT"O8": )FF 

i=2:y=2:G0SUB 1550:i=17:y=2:G0SUB 1 

55O:i=l8:y=l:G0SUB 1560 

1030 coul=9:i=17:y=17:G0SUB 1600:co >PC 

ul=10:i=9:y=15:G0SUB 1590:PL0T 323, 

200:DBAUB 0,400, 12:PL0T 319,200:DRA 

UB 0,4O0:coul=7:i=B0:j=366:RETURH 

1040 • TROU B )XH 

1050 HODE 0:B0BDEB 1:PAPEB 0:FOR 1= >CH 
6 TO 1S:F0R y =6 TO 16:PEN 10:L0CATE 
i.yiPBIHTM'iHEXT.-NEX^LOCATE 6,6: 
PBIHT ,- ":LOCATE 15,6:PR1HT*U":L0CAT 
E 6,16:PRIHT"?':L0CATE 15,16:PRIHT" 



1060 l=7:y=7:GOSUB 1640 



>RU 
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1070 PAPES 0:nb=4:coul=5:REST0RE 2* >BK 

60:G0SUB 1570:nb=3:coul=6:RESTORE 2 

470:GOSUB 1570 

1060 i=9:y=9:G0SUB 1540:PBINT a 09':i >JD 

=2:y=ll:G0SUB 1550:i=17:y=ll:GOSUB 

1S50:i=1B:y 10:GOSUB 1560 

1090 cou)=9:i=16:y=2:G0SUB 1590:1=1 >HB 

7:y=18:G0SUB 1600:coul=7:i=80: 1=225 

lUTun 

U00 ' TBOU 10 >IE 

1110 KODE 0:BOBDEI 1:PAFEB 0:F0R 1= >CU 
6 TO 15:F0B y=? TO 20:PFJ 10:L0CATE 
i,y:PmMTM":NEXT:KEn:L0CA1E 6,7: 
PRIKT'-MJJCATE lSJiPBINT'KMOCAT 
E e.MîPBIHTV^LOCAIE 15,20:PBIMT" 

1120 l=7:y=10:G0SUB 1640 >TC 

1130 PAPER 0:nb=4:coul=5:REST0RE 24 >BL 
BO:G0SUB 1570: nb=3:coul =6 : BESTORE 2 
490:GOSUB 1570 

1140 i=9:y=12:G05UB 1540:PBIHT a 10V >KE 
i=2:y=19:G0SUB 1550:< = 17:y=l9:G0SUB 

155O:i=18:y=18:G0SUB 1560 
1150 coul=9:i=2:y=2:G0SUB 1560:1=16 >EI 
:y=2:G0SUB 1590:coul=7: 1=60: 1=95:RE 
TURN 

1160 ' T«OU 11 >ÏA 

1170 IWDE 0:BORDER 1:PAPE8 0:nb=6:c >BD 
oul=5:BEST0BE 250O.-G0SUB 1570:nb=4: 
cou i =6: RESTORE 2510:G0SUB 1570 
1160 i = l:y=10:G0SUB 15*0 : PR I NT" 1 1 * : >FK 
l=7:y=U:G0SUB 15S0:x=U:y=ll:G0SUB 

lS50:<=8:y=10:GOSUB 1560:PL0T 303, 
115. 12:DRAWR 0,240:PL0T 306,U5:OBA 
VR 0,240 

1190 coul=9:«=2:y=2:G0SUB 15B0:i=2: >BJ 
y=18:G0SUB 1610:coul=10:i=?:y=6:G0S 
UB 1600:i=6:y=15:G0SUB 1590:«=U:y= 
5:G0SUB 1630:i = 13:y = U:GOSUB 1620:c 
oul=7:i=370:1=225:RETURN 

1200 ' T80U 12 >XF 

1210 «ODE 0:BORDER 1:PAPER O:F0fi «■ >JG 
1 TO 9:F0B y=6 TO 16.-PEN 10:L0CATE 
i,y:PEHtT'!':NEIT:NEXT:LOCATE 9,6,-P 
RINT'U": LOCATE 9,16:PB1MT"_":F0B i= 
12 TO 20:F0fi y=6 TO 16:L0CATE i,y:P 
RINTM":NFJT:NEXT:LOCATE 12,6:PEINT 
■*":LOCATE 12. 16:PRfMT"?" 
1220 i=l:y=7:G0SUB 1640 >BK 

1230 FOR 1=14 TO 18:F0R y=9 TO 13:L )PR 
OCATE i.y^RlNTM'tfEThlIErhLOCATE 

14,9:P8INT""':1J)CATE 1B,9:P8IMT*V* 
:LOCATE U. 13:PH1MT"?*:L0CATE 18,13 
îPBIMT» " 

1240 PAPER 0:nb=«:coul=5:REST0RE 25 >RC 
20:G0SUB 1570:nb=3:coul=6:BEST0RE 2 
530:G0SUB 1570 




1250 i=3:y=9:G0SUB 1540:PR[HT'12':i >GI 

=2:y=2:G0SUB 1550: i = 17 : v=19:tMSUB 1 

550:i=18:y=18:GOSUB 1560 

1260 c=oul=9:i=12:y=2:GOSUB 1580:1=8 )GB 

:y=18:G0SUB 16!0:coul=7: i=80: i=366: 

1ETURN 

1270 ' TBOU 13 >ÏC 

1280 MODE 0:BORDER 1:PAPEB 0:nb=8:c >fifi 
ou 1=5: RESTORE 2540:G0SUB 1570:nb=4: 
coul=6:REST0SE 25SO:GOSUB 1570 
1290 i = 15:y=10:G0SUB 1540:PBINT'13' >HD 
:i=2:y=19:G0SUB 1550:i=l?:y=2:GOSUB 
1550:i=3:y=16:G0SUB 1560 
1300 coul=9:<=9:y=2:GOSUB 1620:i=9: >BN 
y=!2:G0SUB l610:i = 14:y=16:G0SUB 163 
0:coul=10:i=2:y=6:G0SUB 1630:i=4:y= 
13:G0SUB 1590:i=B:y=8:GOSUB 1580:<= 
9:y = 16:G0SUB 1620:i=15:y=5:G0SUB 16 
00: cou 1 = 7: r560: i=366: RETURN 

1310 ' TBOU 14 - — >XH 

1320 «ODE 0:BOEDEB hPAPEB 0:F08 1= )JE 

1 TO 20:PEN 10:L0CATE I, HlPllNT*l a 

:LOCATE i,12:PIINT 1 l":ICIT 

1330 nb=16:coul=5:8EST0RE 2560:G0SU )GB 

B 1570:nb=7:coul=6:BEST0BE 2570:G0S 

UB 1570 

1340 i=9:y=2:GOSUB 1540:PRINT"U":i >JR 

=2:y=19:GOSUB 1550:i=17:y=19:G0SUB 

1550:i=18:y=lB:G0SUB 1560 

1350 coul=9:<=15:y=5:GOSUB 1630:cou >FC 

l=10:i=4:y=2:GOSUB 1620 

1360 PLOT 333,70:DRAUR 0,137, 12:PL0 >HG 

T 336.70:DRAWR 0,137:coul=7:l=80:1= 

Kiunn 

1370 ' TBOU 15 >ÏD 

1380 ItODE 0:B08DER 1:PAPER 0:PEK 10 )ZJ 
:FOB 1=1 TO 20:L0CATE i,7:PRIHTM": 
LOCATE l.UtPBlKTViHaTrFOR y=l T 

20:L0CATE 7,y:PBIHT , ! , :L0CATE 14, 
yiPBINTM^NEIT 

1390 FOB a=l TO 8 STEP 2:PL0T1,71« >ZI 

a,10:DBAUR 640,0:NE1T 

1400 PEU 0:PAPER 10:RESTOBE 2580:F0 >HB 

1 4=1 TO 9:READ i,y:LOCATE i,y:PR!N 
T"":IŒÏT 

1410 BESTOEE 2S90:FOR a=l TO 9:READ >KK 

i.y:U3CATE i,y:PRIKT"W:NEIT 
1420 BEST08E 2600:FDR a=l TO 9.-READ >MK 

i,y:LOCATE <,y:PRI«T - '":NEÏT 



1430 RESTORE 2610:F0R a=l TO B:IEAD >KN 

i,y:LOCATE r,y:PRIKT- VNETT 
1440 PAPEB 0:nb=S:coul=5:REST08E 26 >BN 
20:G0SUB 1570:nb=3:coul=6:REST0RE 2 
630:G0SUB 1S70 

1450 i=9:y=9:G0SUB 1540:PBIKT'15':i >DH 
=2:y=2:G0SUB 1550:i=17:y=18:G0SUB 1 
550:i=3:y=l:G0SUB 1560 
1460 coul=9:i = 10:y=2:G0SUB 1600:1=2 )PG 
:y=9:G0SUB 1580:cmil=10:i=16:y=9:GO 
SUB 1590:i=9:y=17:G0SUB 1610:coul=7 
:i=560:l=110:RETURN 

1470 ' TROU 16 >TE 

1480 IWDE 0:BORDER 1:PAPER O:«=7:F0 >CC 
R y=l TO 20 STEP 4:PAPER 10:PEN 0:L 
OCATE l,y:P8INT' ?. ": LOCATE I, 
V+IsPHItiT" 'U "W "îLOCATE i,y*2:PR 
IMT" ?. ? ":LOCATE «,y»3:PRIIIT" 

"W MEtT 

1490 FOR a=l TO 8 STEP 2:PL0T 196,7 >HT 
Ha,10:DRABR 90,0:PLOT 355,71*a:DRA 
UR 90,0:NEIT 

1500 PAPER 0::nb=5:coul=5:8EST0BE 2 >TC 
640:G0SUB 1570:nb=4:coul=6:BEST0RE 
2650:G0SUB 1570 

1510 i=16:y=2:G0SUB 1540:PRIHT"16": )JF 
i=2:y=2:G0SUB 1550:i=17:y=19:G0SUB 
1550:i=lB:y=18:G0SUB 1560 
1520 coul=9:.=2:y=7:G0SUB 1590:1=16 >CZ 
:y=13:G0SUB 1610:coul=10:i=2:y=17:G 
OSUB 1580:coul=7:t=80:1=366:RETURN 

1530 ' DECORS CONMUHS >»B 

1540 PEN 1:L0CATE i,y:PRlHT"àl!é":L >MI 

OCATE i.ytl:PRIHT"H§l':L0CATE i,y« 

2:PRINT'IMI*:PEN 3:LDCATE i,y»3:PB 

INT'è ":PAPEE 1:PEN 2:L0CATE ni, 

y<l:RETURN 

1550 PAPER 0:PEN 7:L0CATE l,y:PRIKT >BK 

•"WVLOCATE i,y»l:PRIHT"?! ":RETUR 

N 

1560 PEN 8:L0CATE i,y:PRIKT'«":PAPE >JÏ 

R 7:PEH 15:L0CATE i.yU^RIKTlVPE 

H 14:L0CATE i,yt2:PRINT CHBK119):R 

ETURN 

1570 FOR a=l TO nb:READ i,y:PEK cou >M£ 

hLOCATE i,y:PRIHT'!":PEN 3:L0aTE 

l,ytl:P8INTM':MEIT:RETu'BII 

1580 PAPER 0:PEH coul:LOCATE >,y:PR >AU 

INT""IIU»:LOCATE i,y<l:PR[MT"l!! ": 

LOCATE i,y»2:P8IKT , ?!c , :RETURN 

1590 PAPER 0:PEN cou hLOCATE i,y:PR >DU 

Hrr"IH a :UCATE l,y«l:P8mT"?!!l": 

LOCATE i«l,y«2:PRINT"H VRETUEN 

1600 PAPES 0:PEN cou h LOCATE <,y:PR )GU 

INT'ùlU": LOCATE l-l,y»l:PBINT""!!!' 

:LOCATE l-l,y»2:P8INT'?l! VRETURN 

1610 PAPEB 0:PEH couhLOCATE l,y:P6 >AV 
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IHT"-I'-:U»CATE i.yt^PRINT'HHIVL 
OCATE i,y«2:PSIHTV!!_':RETU8H 
1620 PAPES 0:PEN couhLOCATE l,y:PR >DI 
INT"*1!W:L0CATE i-l > y*l:PllNT 1 ùli! 
IVLOCATE «-2,r»2:PSIHT*-|IH_*lL0C 
ATE i^.ytS^SlNT'HicVLOCATE" 1-2, 
yt4:PRINTV!/:RETURN 
1630 PAPEI 0:PEH couhlOCATE l,y:Pi >PM 
INT""!l'":LOCATE I, y*i :PR1MT"SSHU" 
:U1CATE i,yt2:PRINT'?»l!! , :L0CATE I 
tl,yt3:PRINT"lllc":L0CATE lt2,yt4:P 
EiMT"?_":BETUBN 

1640 FOR a=l TO 6:F0R b=l TO 6:PEN >VV 
0:LOCATE ita,ytb:PRINT"!":NEXT:NEIT 
:PAPER 10:L0CATE 1*1, y*l :PK 1NT""" : L 
OCATE it6,ytl:PRINT"W:L0CATE Kl, y 
t6:PRlNT"?':L0CATE 1*6. y*6:PRlHT" _" 
:RETURN 

1650 ' )ÏE 

1660 •Hlll VENT mil >ÏF 

1670 ' >iG 

1680 PLOT 1,1,13 >GC 

1690 yent=INT(RNDUH360) >UG 

1700 PAPER 1:PEN U:LOCATE 1,22:PRI )ÏP 
NT"yent";yent 

1710 11=1:11=1 )AC 

1720 ' >XC 

1730 '<!"« NE COUP "•«■ >ÏD 

1740 ' >ÏE 

1750 DEGiFQS a=l TO 360 STEP 5:PL0T >AK 
600.32. 1:PL0TR 26lC0S(a).26iSIH(al 
:NEÏT 

1760 ' >YG 

1770 coup- coup* 1 >NP 

1780 LOCATE U,22:PRIIIT , cou[i";coup >FA 
1790 ' >VK 

1600 PLOT l.70,l:DRAWR 640,0 >I/W 

1810 PEN 11:L0CATE 13,24:PRINT 'ang >HI 
le":LOCATE 13,25:PRIKT anile 
1820 PLOT 600,1, 1:DRAW 600,63:PL0T >VE 
565.32:DRAU 635.32 

1830 ' >ÏE 

1840 '"«•• FORCE Hlll >ÏF 

1850 ' >ÏG 

1860 FOR a=l TO 500:NEIT: PK1NT CHRt >GR 
(7); 

1870 PAPER 0:PLOT 7,2, 1 : DfiAWR 308.0 >QZ 
:DRAUR 0.8:DRAUR 308,0:DSAWR 0,-8 

1880 IF 1NKEÏ172)=0 THEN (orce=forc >CC 

e*l:IF force>300 THEN force=300:GOT 

1980 

1890 IF INKEY(73>=0 THEN !orce=torc )«H 

e t:GOT0 1940 

1900 IF INKEV(75)=0 THEN torce=forc >DU 

e» 10: IF force)300 THEN force=JO0:G0 

TO 1980 




1910 IF INKEyi74l=0 THEN force=forc >TX 
e-10:GOT0 1940 

1920 IF INKEÏ(76)=0 THEN PEN tl:PAP >BC 
EJ 1:L0CATE 1.24.-P8IHT "forceVGOTO 
2040 

1930 GOTO i960 )NJ 

1940 PLOT 310,4:DRAWR -300tforce.O, )FG 
0:1F force<l THEN force=l 

1950 PLOT 310,6:DRAWR -300tforce,0 >BI 

1960 PLOT 310,B:DRAUR -300tforce,0 >BA 

1970 GOTO 2010 >HH 

1960 PLOT 10,4:DBAUR force, 0,2 >ÏA 

1990 PLOT 10,6:0RAUR force, )UE 

2000 PLOT 10,8:DRAVR force, >UN 

2010 PEN ll.-PAPER 1:L0CATE 1,24:PRI >VL 
NT CHR»(24)fforce'tCHR»(24):force 



2020 GOTO 1870 


m 


2030 ' 


m 


2040 'n"i ANGLE Hlll 


>XJ 


2050 ' 


)XK 



2060 FOR a=l TO 500:NEIT:PtlNT CHRt >GJ 

17); 

2070 PEN 11:L0CATE 13,24:PRINT CHR4 >CL 

(24)t'ang!e'tCHRII24) 

2080 IF INKE1T(72)=0 THEN amie anii >XQ 

etl:IF angle>359 THEN anjle=0 ELSE 

2180 

2090 IF INKEYt73)=0 THEN anile=angl )XT 

e-l:IF anijle<0 THEN anile=359 ELSE 

2140 

2100 IF INKEï(74l=0 THEN an ( le=an|l >VC 

e 10: 1 F an«le<0 THEN angle=3S9 ELSE 

2120 

2110 IF 1NKEV(75)=0 THEN anile=anil >ÏE 
etlO:IF an|le>359 THEN amle=0 ELSE 

2160 

2120 DEG:PLOT 600,32:DBAWR 22<C0S( >BZ 
an|letB0),22iSINI-angletB01,0:PL0T 
600,32:DBAIIR 22tC0Sl-an(let9O),22«S 
IN(-an|le*90l,l 

2130 GOTO 2190 >HF 

2140 DEG:PLOT 600,32:DBAUR 22»C0S(- >CM 
u|le«89),22iSIN(-an|let891,0:PL0T 
600,32:DBAtn 22iC0S(-ui|let90),22lS 

INI-an(let90l,l 

2150 GOTO 2190 >NH 



2160 DEG:PLOT 600,32:DRABR 22IC0SI- )FT 

anilet|00).22iSIN(-anfletlOO),0:PLO 

T 600,32:DBAgt 22>C0S(-an«let90),22 

lSIN(-an|let901.1 

2170 GOTO 2190 >r1K 

2180 DEG:PLOT 600,32:DRAUR 22»C0S(- >CB 

anilet91),22iSIN(-anilet91),0:PL0T 

600,32:DRAyR 22iC0S(-an«let90),22iS 

IN(-anilet90l,l 

2190 PEN ll.-PAPER 1:L0CATE 13,25:PR >MU 

INT angle 

2200 PLOT 600,1, 1:DRAU 600,63:PL0T >VX 

565. 32: DRAW 635,32 

2210 IF INKEÏ(76I=0 THEN GOTO 2670 >AH 

2220 GOTO 2080 >HD 

2230 ' >XK 

2240 'mil DATAS ••■•• >ÏA 

2250 ' )ÏB 

2260 DATA Début, Belle du {eu >UA 

2270 DATA ■ PARCOURS 1 ",• PARCOUR >TK 

S 2 "," PARCOURS 3 V PARCOURS 

4 "," PARCOURS 5 •," PARCOURS 6 " 

." PARCOURS 7 ■," PARCOURS B "," 

PARCOURS 9 "." PARCOURS 10 ",■ PAR 

COURS 11 V PABCOURS 12 "," PARCOU 

RS 13 "," PARCOURS 14 "," PARCOURS 

15 " 

2280 DATA " PARCOURS 16 " >TU 

2290 DATA 6,16,8,18,10.18,12,18,14, >PU 

18.16,16,18.18 

2300 DATA 2,7,2,13,6,2,15,2,17,2,19 >BD 

,2 

2310 DATA 6, 19, B, 19, 10, 19. 12, 19. 14, >ÏG 

19,16,19,18,19,2,8,2,14,6,3,15,3,17 

,3,19,3 

2320 DATA 6.9,11,6,10,16,16,10,19,7 >MF 

,14,19,16,14 

2330 DATA 5,12,14,3,7,19,13,13,19,1 >BF 



2340 DATA 6, 
15,16.15,18 
,9,18,4 
2350 DATA 6 
2360 DATA 3 
19,7,13,11 
2370 DATA 3, 
2380 DATA 7, 
7,2,17,6,19, 
2390 DATA 3, 
2400 DATA 2, 
,13,3 

2410 DATA 3, 
,19,11 

2420 DATA 2, 
,19,11 
2430 DATA 6, 
. 2440 DATA 2. 



15,8,15.10,15,12,15,14, >YK 
16,2,7,2,11,2,15,2,19,9 

7,6,11,10,2,17,11,8,5 >ÏZ 
16,5,16,7,16,9,16,9,10, >KV 

6,5,6,14,5,17,16,10,11 >ZH 
16,9.16,11,16,2,7,5,13, >PC 
12 

10.4,18,9,4,11,4,18,9 >VL 
12,6,12,7,5,10,13,10,19 >EH 

10,5,10,9,16,10,2,12,15 >FÏ 

13,5,12,9,19,11,3,17,14 >FN 

9,10,18,13,2,16,10 >NE 
8,3,11,8,9,9.12,12,12.1 >VD 
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4, 6, 15.3,1/,!*. 10, II 

2450 DAT* 4.14,6.3,7,6,13,9,19,8 >IH 

2460 DAT» 2,7.2,17,6,2,18,15 >UK 

2470 DATA 3,4,5,19,19,6 >PY 

2480 DATA 2,10,11,3,19,9,19,14 >IHf 

2490 DATA 4.16,10,4,16,11 )8D 

2500 DATA 3,7,2,14,17,2,16,6,19,10, )EK 

19,19 

2510 DATA 2,7,3,15,19,3,19,15 >VL 

2520 DATA 3, 19, 5, 19, 18, 3, 15, 10 >VN 

2530 DATA 4,18,17,11,19,2 >RG 

2540 DATA 3.3,5.3,3,11,5.18.12,6.13 >ND 

,19,19,6,19,15 

2550 DATA 4,1.2,14,13,11,14,2 )VB 

2560 DATA 2,2,3,14,6,14,10,9,6,19,8 >YJ 

, 17,9, 16. 10. 15. 13, 16. 14.2, 14, 17, 15, 

14,15,18,19,3,19,15,12,9 

2570 DATA 2.15.7,18,11,8,12.15,16,1 )NL 

9.18,2,18,14 

2580 DATA 1,1,8,1,15,1.1,6,8,8,15,8 W 

.1.15.8,15.15,15 

2590 DATA 6,1,13,1,20.1,6,8,13,8,20 >UT 

,8,6,15,13,15,20,15 

2600 DATA 1,6,8,6,15,6,1,13,6,13.15 )UJ 

,13,1.20,8,20,15,20 

2610 DATA 6,6,13,6,20,6,6,13,13,13, >IH 

20,13,6,20,13,20,20,20 

2620 DATA 5, 4, 18, 2, 19, 3. 2, 18, 16, 16 >ZI 

2630 DATA 5,16,4,17,16,4 >QH 

2640 DATA 2,14,5,14.16.9,18.10,19,1 >BD 



2650 DATA 3,13,5,4,18,7,16,17 >Vfi 

2660 ' >ÏG 

2670 '••••• ANIMATION DE LA BALLE l >YH 

HH 

2680 ' >ÏJ 

2690 FLOT 1,1,13 >GE 

2700 DEC >ÏA 

2710 a=ari|le >HA 

2720 li=4iSIN(uiile):iy=4iC0S(anile )AR 

W2:ll=ilt(SlN(»ent)/4>:iy=iy*(C0Sl 

vent ) /4) :f -force 

2730 IF (orce>25 THEN lorl=INT(Iorc >MA 

e/3):for2=INT(forU0.5>:for3=INT(fo 

r2l0.5):forO=forlU.2 ELSE torl=l»2 

:for2=f»2:for3=force:for0=for3 

2740 IF raul=9 THEN force-INTdorce >RE 

/2):f=force 

2750 FOB 3on=8 TO STEF -kSDUND 3 >AI 

,150,2,son,2,l,5:NFJT 

2760 PLOT l,1,coul:l=i*li:1=1«ly:co >JV 

ul=TEST(l,|):PLOT 1,),13 

2770 IF frtml OR l=for2 08 Mai >WE 

THEN FOB son=7 TO STEP ■ 1:50UND 4 

,2O0,2,9on,0,0.2:NEÏT 

2760 IF f<for3 THEN SOUND 4.3000,5, >AU 

3:F01 son=l TO !5:NEXT 




2790 IF KO OB 1)639 OB K72 OB 1)4 >CT 
00 OB tcoul=IO AND (Mort OB t'ttt 
2 OB Kfor3<D) THEN GOTO 2880 
2800 IF cou 1=3 AND KlorO THEN GOSU )GC 
B 2900 

2810 IF (coul=S 01 coul-6) AND Olo )HA 
r3 AND KforO THEN GOSUB 2930 
2620 IF coul = 14 AND (f=forl OB »«f« >FN 
r2 OB f<fot3) THEN GOTO 2970 
2630 IF coul--9 AND H=lorl OR Mil )CA 
2 OR f<Ior3l THEN SOUND 2,1100,6,6: 
GOTO 1760 

2840 IF coul = l THEN GOSUB 2900 >XB 

2850 IF coul=12 THEN GOSUB 2900 >ÏD 

2860 f=(l:IF f)l THEN GOTO 2760 EL )HE 
SE GOTO 1760 

2870 PEN 13:GOT0 2710 >PK 

2880 IF coul<>2 THEN FOB son=l TO 8 )HV 
00 STEP 15:S0IMD l,son,4,5:NEXT 
2890 PLOT i. Lcoul :FDB a=l TO 1000: >JI 
NEIT:SOUND 1. 1500.20.6:1=11: 1=1 |:PL 
OT l,l,13:coul=0:G0T0 1760 
2900 FOB son=B TO 1 STEP - 1 : SOUND 1 )GÏ 
. 235, 5, son:NEIT : rebond= I NTISNDl 1 ) «3 
):IF rebond<2 THEN l«=ii 
2910 IF rebond)0 THEN l»«-l| )WU 

2920 BETURN >FG 

2930 FOB son=0 TO 10:SOUND 1,1,2,30 >AN 
n,0,0,2:NEIT:PL0T i,1,coul:F0B k=1 
TO 1-16 STEP -l:coul=TEST(i,k>:PLOT 
i,k,l3:F0B a=l TO 14:NEIT:FL0T l.k 
,coul:NEIT: 1=1-16 

2940 IF coul=3 THEN PLOT l.l.coul:! >EA 
=1-l:ooul=TESTli,1):PL0T 1,1,13:G0T 
2940 

2950 PLOT i,1,13:f=0:coul=0:S0UND 1 >HC 
,350,10,5 

2960 BETURN >GA 

2970 BORDER 6,24:F0R sonl=l TO 10:F >VU 
OR son2=10 TO STEP -1:S0UND l-5«( 
sonl/2=INT(sc,nl/2)>,20,2,SOïl2:NEIT: 
NEIT:BORDEB l:force=l:anjle=0:coup= 


2980 • >ZB 

2990 'mil GAHE OVER mu >ZC 

3000 ' )XF 

3010 FOR a=l TO 1000:NEIT:PEN 2 >IB 

3020 FOR 1=10 TO 12:L0CATE 6,a:PRlN >BH 
T STRINGtdl,* •):NEXT 



3030 LOCATE 7,11 :PRINT'GANE OVEB* >CK 
3040 PLOT 160.206,14:DRAVB 350. 0:0» >PL 
AHt 0,48:DRAWR -350,0:DRA«R 0,-48 
3050 PLOT 160,2O6:DRAWB 3S2,0:DRAUR >KB 
0,48:PL0T 16O.204:DRAWR 352,0 
3060 FOR a=l TO 3000:NFJT >TB 

3070 IF INKEY176K>-1 THEN GOTO 570 >BI 

3080 IF INKEY173>=-1 THEN GOTO 3070 >BG 

3090 ' )ÏE 

3100 I REDEFINITION CARACTERES >XG 

mu 

3110 ' >IH 

3120 SYHBOL AFTER 256:NEM0RT 39807: m 
SYMBOL AFTER 33 

3130 ' ARBRE >XK 

3140 STHBOL 33,60.110,251,239,191,2 )KX 

53,118,60 

3150 STHBOL 35,24,24,24,24,24,24,24 >DY 

,24 

3160 ' DBAPEAU >ÏC 

3170 SYMBOL 37,0.96.120,126,127,126 >HV 

,120,96 

3180 STHBOL 38,64,64,64,64,64,64,64 >EF 

,64 

3190 ' ENSEIGNE )ÏF 

3200 STHBOL 64,31,63,127,255,255,25 >KQ 

6,255,255 

3210 STHBOL 123,248.252,254,255,255 >NE 

,255,255,255 

3220 SÏNBOL 125,225,227,230,236,248 )NJ 

,240,224,224 

3230 STHBOL 91.135,199,103,55,31,15 >EE 

,7,7 

3240 ' EAU ou SABLE >YB 

3250 SÏHBOL 93,255,255,255,255,255, >HY 

255,255,255 

3260 STHBOL 94,1,7,31,63,127,127,25 >FI 

5,255 

3270 SÏHBOL 63,255,255,127,127,63,3 >FU 

1,7,1 

3280 SYMBOL 87,128,224,246,252,254, >HU 

254,255,255 

3290 SYHBOL 95,255,255,254,254,252, >HW 

248,224,128 

3300 SÏHBOL 92.255,252,248,240,224, >KG 

192,192,0 

3310 SÏHBOL 163,255,63.31,15,7,3,3, >BB 

1 

3320 SÏHBOL 96,128,192,192,224,240, >HL 

248,252,255 

3330 SYHBOL 124,1,3,3,7,15,31,63,25 >BA 

5 

3340 SYHBOL 119,96,96,96,0,0.0.0,0 >AH 



3350 RETURN 



>FE 
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Valable DOur 
2 CPC 464 
X CPC 664 
S CPC 6128 




Traitext 

Cet utilitaire est un traitement 

de texte qui regroupe 

toutes les options de ceux 

du commerce (correction, 

caractères spéciaux...)- 



François BATUN 



Mais c'est aussi bien plus qu'un trai- 
tement de texte puisqu'il possède 
ses propres options comme le Bidouilleur 
qui permet de redéfinir instantanément 
le pavé numérique. 

Bref, ce qu'il faut retenir c'est que Trai- 
text peut à la fois imprimer des lettres, 
un listage de votre texte en Basic (INE- 
DIT !) ou encore une lettre avec ses nu- 
méros de lignes devant. 



Le déplacement du curseur se fait avec 
les flèches, la sélection des menus avec 
la barre espace. Si vous voulez compren- 
dre l'utilisation du logiciel, allez dans 
"UTILITAIRES" et choisissez "AIDE". 

Caractères spéciaux : 



à =====> @ 

ù ====> ùCPM par exemple 
é ===> avec l'accolade de début 
è =====> avec l'accolade de fin 
° =====> sans Shift avec le crochet 

début 
§ =====> sans Shift avec le crochet 

de fin 
ç =====> sans Shift avec la barre de 

division 



■i 




1U "Mil 


««tiiitiitittttttttifi 


ut 


.LA 


20 '« 




ii 


>LB 


30 '•■ 


TRAITEXT 


ii 


)LC 


40 '" 




ii 


)LD 


50 'ii 


ECSiT FAB F. BATUN 


ii 


>LE 


60 '■• 




it 


.LF 


70 '■« 


POUR AHSTAR i CPC 


ii 


>LG 


80 '■■ 




ii 


/LU 


90 '•• 


(ci 1989 


■ i 


>u 


100 '•■ 




1 1 


>RB 


110 '•> 


tttittftittttitittiittiit 


>BC 


120 ' 






>BD 


130 ' 






>JE 


140 ' 






>Rf 


150 ' i 


■• PREPARATION "• 




,>RG 


160 ' 






■ RH 



170 ON ERR0R C0TO 1360: 1NK 0.13: IN» ;AL 
1.1:PEN 1:PAPER 0:N0DE 2:B08DER 13 
:SÏHB0L AFTE8 0:DIH t»i5000):G0SUB 
1040 

180 TAG0FF:s=l2:voi=l2:S0UND 1,250. >HE 
20,s:SOUND 1.200. 20, s:TAG 
190 TAC0FF:CLS >FJ 

200 FOR e=0 T0 *:PRINT:NEÏT:PHINT" >ÏP 



UTILISEZ LE CURSEUR ET VALIDEZ Ai 
EC 'ESPACE! POUR L'AIDE. VOUS PR 
ESSEREZ 'ENTER! POUR PASSER 
A LA RUBRIQUE SUIVANTE 

ET AU HENU.V0US PRESSER 
EZ 'C0PY! POUR U FIN 
210 PRINT:PRINT" YB0K 

NE CHANCE... 2 

UNE TOUCHE" :CAU 
IBB18 
220 ' 

230 '•■! DEPLACEMENT CURSEUR ■■• 
240 ' 

250 n=8:y=392:tltr»="EÏEHPLE":auteu 
»="KACHINCH0ZE"::loi=0:ral=12 
260 CLS:CLSI1:TAG0FF:PR1NT CHRi(23) 
•CH£IU);:TAGsFUrt 700, 700, 1 
270 H0VE i,v:PR1NT CHF.H2S3);:i=8:y 
=392:1=0 

280 IF cursioy=0 THEN j=8:d=l:h=0:b 
=2:saisie=47:cat=".TEX":cb»=".BAT': 
GOTO 300 
290 8=74:d=75:h=72:b=73:saisie=76 





300 




E > 




310 




320 


m 


330 


/ 


1 
340 


>RE 


350 


>RF 


360 


>RC 


370 


>RÏ 


380 


/ 


390 


>LF 


400 




TAC 


>HF 


411) 


/ 




)CC 


420 




VE 




430 


>CH 


440 



IF INKEïlsaisie)=û THEN 430 ILS >PZ 
2=<:y2=y 

IF lNKEYi(>=0 THEN l'i-talilvt* >EE 

IF INKEY(di=0 THEN i=nral:ivt= >EA 

IF INKEÏlbj=0 THEN y=y-ral:lvt= )ED 

IF lNKEÏ(h>=0 THEN y=y.ral:iwt= >EJ 

IF l<8 THEN 1=8 >HP 

IF 1)630 THEN 1=630 >QR 

IF y<385 THEN y=385 >QH 

IF y>399 THEN y=399 >QX 

IF ivt=l THEN «yt=0 ELSE 300 >ÏA 

I TAC0FF:PRINT CHR$(23)«CHR»(1):: >ÏH 

1:PL0T 700,700,1 

I N0VE «2,y2:PRINT CHRI {2531 :: TAC /DR 

I SOUND 1,104,1, vol:CAU iBD10:H0 >PR 
l,y:PRINT CHR«(253);:G0T0 300 

' TEST CUIS. ;RH 

l2=l:y2=y >VD 
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450 ' >BK 

460 ' >TA 

470 BOEDER 13:1F i>=100 AND l<=200 >BH 
AND y/=3?6 AND INKEYlsalsle)=0 THEN 

GOTO 530 
480 IF i>=260 AND i(=360 AND y>=376 >NP 

AND INKEYIsalsle)=0 THEN GOTO 560 
490 IF i>=32 AND l<=88 AND y>=376 A >rTT 
ND INKEY(3alsie>=0 THEN GOTO 2290 
500 IF i)=404 AND l<=476 AND y>=376 >0B 

AND INKEYlsaisie)=0 THEN GOTO 2480 

510 IF l>=560 AND I<«SH AND y>=376 >QL 
AND INK£Y<salsle)=0 THEN GOTO 2680 ■ 

520 COTO 310 >YH 

530 TAG0FF:CLS:CLSIl:CLSI2:PfiiHTIl, >EI 

NOUVEAU TEXTE' / 

540 PRINTIl,STfilNGIl2S,"="> >UT 

550 FOB r=0 TO 4:PRINTI1:NEXT >YD 

560 PHINTI1." Confl nation" >EÏ 

570 PBINTI1,' (0/N) " >UF 

580 la»=INKEY»:la»=UPPEB«(la»):IF 1 >EA 
al=" THEN 580 ELSE IF la***0* THEN 

FOB t=0 TO l:t»(t)=":NEIT:l=0:GOT / 
590 ELSE IF la»="N" THEN CLSI1:G0 
TO 590 ELSE 580 

590 PBINTI1," TAPEB EN MODE DIBECT: >NF 
":PBINTI1."MENU=ACCES CUBSEUB":Pfi]N 
TI1."KEYS= RETOUR A LA NORMAL (Pave 

Ninerlquel":' LE TBAITEMENT 

600 IF l>7 THEN FOB T=l-5 TO l:PBIN >VE 
T ">";T»<T):NEXT ELSE FOB T=0 TO I: 
PBINT ">";T»(T):NEXT 

610 ' >8H 

620 '■•■ MENU UTILITAIRES ■■• >BJ 

630 ' ,RK 

640 L0CATEI2,1,1:PBINTI2, "LIGNE Né: >AL 

">STB«11):PBINTI2 / 

650 LINE INPUD'.HilF UPPEfi«U»)= >NG 

■MENU" THEN 450 ELSE IF UPPEB»(U> = * 

"KEÏS" THEN GOSUB 1390:GOTO 640 ELS T 
E i=Hl:t»(l> = l»:GOTO 640 

660 ' ligne t 1 >TC 

670 1 = H1:GOTO 640 )HL 

680 • UTILITA1BES >TE 

690 CLS:CLSIl:CLSI2:h=0:b=2:saisle= >LU 
47:a=6 

700 TAG0FF:PBINTI1," UTILITA >JQ 

1RES" / 

710 PRINTI1:PR]NTI1,STRING»12S,"="> >EG 



720 PRINTll," 


- LISTAGE - 


m 


730 PBINTI1," 


■ CHARGES - 


>YK 


740 PBINTI1," 


- SAUVES - 


>YE 


750 PBINTI1," 


CORRECTION - 


>AP 


760 PRINTI1," 


- VISIONNES - 


>ZV 






770 PRINTI1," 
780 PRINTI1," 



AIDE 
CHBI 



m 

>zc 



790 PBINTI1," - CENTRES - >YR 

800 PBINTI1," >MV/ 
810 PRINTI1:PRINTI1, "UTILISEZ ";CHR >IK 
»(240)i" , "iCHBII241);" ET ESPACE. 

820 IF INKEY(b)=0 THEN a=a»l:IF a)= >HF 

13 THEN a=13:G0T0 820 ELSE 850 

830 IF INKEYIhl=0 THEN a=a-l:IF a<= >FY 

5 THEN a=5:G0T0 830 &SE 850 

840 IF INKEY(saisiel=0 THEN 870 >7.R 

850 L0CATEIl,6,a:PRlNT«l,">":L0CATE >KH 

ll,20,a:PRINTIl,"<":FOR e=0 TO 50:N 

EXT:L0CATE«l,6,a:PBINTIl," ":LOCATE 

ll,20,a:PRINTIl," " 

860 GOTO 820 >AA 

870 ON a-4 GOSUB 920,1430,1530,1940 >«D 

,2030,2050,1300,1710 

880 GOTO 820 >AC 

890 ' >TH 

900 '•<• LISTAGE "• >BK 

910 ' >TA 

920 CLS:FOR r=0 TO 6:PBINT:NEIT >AK 

930 PBINT TABI18);" 1- Norial" >AB 

940 PBINT TABI18);"2- Automatique" >GM 

950 lls»=INKEY»:lls»=UPPEB»<hs»):l >CB 

F lis»=" THEN 950 ELSE IF lis»="l" 

THEN 960 ELSE IF lls»="2" THEN 970 

ELSE 950 

960 CLS:FOR r=0 TO i :PS 1HT"; r : t*( r >HQ 
l:NEIT:CALL 1BB1B:GOTO 450 

970 CLS:PR1NT" 10 '"*CHB»(34)UHrl >MB 
»CHB»I34) 

980 PBINT" 20 ' Par "tauteu» >IF 

990 PRINT" 30 MODE 2:INK 0,26:BORDE >RV 
R 26: INK 1.0 

1000 PBINT" 40 1MDM 17,63,1,25 >AJ 

1010 FOB r=0 TO i:PBINT 40t(ntOI"P >TZ 
RINT"tCHfi»(34)i 

1020 FOR lo=l TO LFJIt»lr)):PRlNT M >ND 
ID«(U(r),io,l);:SOUND 1.20, 1,15: SU 
UND 1.0,l,15:NEIT:PRiNT:NEXT 

1030 CALL IBBlBiGOTO 450 )BX 

1040 VINDOU 2,51,4,24 >f| 

1050 UIND0VI1, 53,77,4,22 >BZ 

1060 y|ND0UI2,53, 80,24, 25 >TY 

1070 ' )YA 

1080 ' III DESSIN ECBAN IM >YB 

1090 ' >yc' 

1100 SYMBOL 2S3,18O,lE0,4F8,lFE,lFF >NF 



,«FC,IDE,K 

1110 SYMBOL 224.0 >L2 

1120 ' CHARGE ECBAN >IC 

1130 PAPERI3,1:CLSI3:PAPEBI3,0 >YC 
1140 L0CATEI5,1,1:PRINTI5," DIVE >FG 
BS NOUVEAU TEXTE UTILITAIBES 
IMPRESSION F I N 



1150 L0CATEI5,1,2:PRINTI5," 



>PD 



/ 



1160 INK 0,13: INK 1.1 )NI 

1170 POKE IBE46.10:SYHB0L AFTER 63 >BD 

1180 SYMBOL 64,96,48,120,12,124,204 >EA 

,118 

1190 SYMBOL 91, 118,124. 124,118.10,1 >GE 

0,10,10 

1200 SYMBOL 92,0,0,60,102,96,102,60 >DK 

,24 

1210 SYMBOL 93,UE,l30,l<38,t6C,l38, >KC 

118.tfO.lO 

1220 SYMBOL 123,12,24,60,102,126,96 >DU 

,60 

1230 SYMBOL 124,48,24,102,102,102,1 >FK 

02,62 

1240 SYMBOL 125,130,118, »3C,l66,i7E >LU 

,t60,t3C,tO 

1250 RETURN >FB 

1260 SYMBOL 125,48,24,60,102,126,96 >PV 

,60:G0T0 1330 

1270 ' >YC 

1280 ' III CABACTEBES IH >YD 

1290 ' >YE 

1300 CLS:CLSI1:PBINT" BIDOUILLE : C >BL 

aractères":PBINT:FOB car=126 TO 255 

:PRINT car;CHE«(car>;:NEIT:LOCATEIl 

,l,4:PRINTIl,"No ASCII du CHBI \: LU 

CATEll,17,4:INPUTIl,">",chc:IF chc< 

126 OR chc>255 THEN 1300 ELSE CLSI1 

:CLS:PRINT:PBINT" BIDOUILLE : Carac 

teres":PRI 

1310 CLS:PRINT" Redéfinition du pav )YE 

é nuierique:":FOB t=0 TO 9:PBINT" 

"iti"- TOUCHE";t:NEXT:PBINT:PRIN / 
T" VOTBE CHOIX";:INPUT">",z:IF 2=0 
THEN k=15:G0T0 1330 ELSE IF 2=1 TH 
EN k=13:GOT0 1330 ELSE IF z=2 THEN 
k=14:G0TO 1330 ELSE 1320 
1320 IF z=3 THEN k=5 ELSE IF 2=4 TH >HB 
EN k=20 ELSE IF 2=5 THEN k=10 ELSE 
IF 2=6 THEN k=4 ELSE IF 2=7 THEN k= 
10 aSE IF 2=8 THEN k=ll ELSE IF 2= 
9 THEN k=3 

1330 KEY 150«2,CHB»(chc):KEY DEF k, >JA 
l,150»z 
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>BF 
>TB 
>»C 

>ÏD 
>GA 



>AJ 
>EK 

>a 
m 

)ÏB 
>QD 
>CH 



>KT 



13*0 CLS:CI.SI1:GÛT0 590 

1350 ' 

1360 '•" TRAITEMENT ERREURS lli 

1370 ' 

1380 FOB r=200 TO STEP -2:B0RDER 

t/10»8, t/10+4:S0UMD l,t,l,15:MEIT:S 

OUND 1,2000,20, 15:PRINT"ERREUR LIGN 

E: - :ERL:BORDER 26.6:RESUME 4S0:'C0N 

TINUE SANS PROBLEME (COOL!) 

1390 FOB t=0 TO 9:READ ke:KEY 1S0U >EP 

,CHRN48U):ICEY DEF ke, 1.150»t:MEIT 

:GOT0 450 

1400 DATA 15,13,14.5,20,12,4,10,11 

3 

1410 BETIIBN 

1420 ' 

1430 ' ■•< CHARGEMENT IH 

1440 ' 

1450 ja=500:CLS:CLSIl 

1460 FOI r=0 TO 6:P81HT:MEXT:PB1NT 

TABI18);" 1- FICHIEB ":PRINT TABI1 

B) :-2- FICHIER BASIC* 

1470 lls»=INKEY«:lis»=UPPER»(lis»> 

IF lls»=" THEN 1470 ELSE IF lls»=" 

l" THEN 1480 ELSE IF lis»="2" THEN 

1500 ELSE 1470 

1480 CLS:ùDIR."i.tei":PRINT"CHAR.NO >NE 

N:";:INPUT"",fh«:IF LEN(lh»)>7 OR L 

ENIIhtKl THEN 660 

1490 OPENIN IM« a .ntl*:IWUTN,i:CL >TQ 

OSEIN:0PENIN fhif.TEXVFOR t=0 TO 

1:IHPUTI9, tt<t):HEXT:CLOSEIN:CL£:FO 

R r=0 TO 6:PRINT:NEXT:PBINT TABI18I 

;"FICHIER"»CHR»(34)«lh»tCHRft34H"C 

HARGEVCALL &BB1S:GOTO 450 

1500 'CHARGEMENT BASIC )IJ 

1510 CLS:il01R.*>.B*T*:PRINT a CHAR.N0 >PC 

M:"::INPUT"",thl:IF LEN(lh«>>7 OB L 

ENIIhtKl THEN 680 ELSE RUN"!"HhH 

".BAT": END 

1520 ' 

1530 ' ■•• SAUVEGARDE Hl 

1540 ' 

1550 CLS:CLS«1 

1560 FOR t=0 TO 6:PBINT:NEXT:PRINT 

TABdB);" 1- FICHIER ":PRINT TABll 

8):'2- FICHIER BASIC 

1570 lsl=INKEYl:ls»=UPPER«Us»):IF 

ls»=" THEN 1570 ELSE IF ls«="l" TH 

EN 1580 ELSE IF lsl="2" THEN 1610 E 

LSE 1570 

1580 CLS:ùDIB."i.TEI":PRlNT"SAUVEGA >FX 

RDE:NOM:";:INPUT",fh«:IF LENlfhtl) 

7 OB LENIfhlXl THEN 680 

1590 OPENOUT lh»t".nrl":YSITEI9,l:C >ZB 

L0SE0UT:OPENOUT thH".TEI":FOR t=0 

TO i:«RITEI9.t«(tl:NEÏT:CL0SE0UT:CL 



>ÏB 

>rc 

)IH 

>CJ 



>ZD 



m 



S:FOR r=0 TO 6:PR1NT:NEXT:PRINT TAB 
(18);"FICHIER"tCHRII34)t(h««CHRI(34 
H"SAUVE":G0T0 450 

1600 ' >IK 

1610 ' ■» SAUVEGARDE 3ASIC 1.1 1 1 >VA 
.0 »»• 

1620 ' >YB 

1630 CLS:ÙDIR."'.BAT":PRINT"SAUVEGA >ZG 
RDE:NOM:";:INPUT",fM:IF LEN(thl)> 
7 OR LENIfhtKl THEN 660 ELSE OPENO 
UT lh«t".BAT":PRINTI9." 10 ' TEXTE 
:"tCHR«l34jtTITR»tCrtR«lJ4> 
1640 PRINTI9," 20 ' AUTEUR :"<CHR«< >ZN 
34)«AUTEU»*CHR«(34> 

1650 PIIMTI9," 30 MODE 2:INK 0.26:B >IA 
ORDER 26:INK 1,0 / 

1660 PRINTI9," 40 UINDOW 17,63.1,25 >EV 
/ 
1670 FOR r=0 TO i:PBINTI9,STR«(50t< >KJ 
r<10))"PRINT"tCHR«(34);tf(r) 
1680 PRINT:NEXT >LE 

1690 CLOSEOUT:CALL 4BB18:G0TO 450 >BK 

1700 ' >YA 

1710 ' m CENTRAGE D'UNE LIGNE Hl >ÏB 

1720 ' >TC 

1730 CLSI1:CLS:F0R t=0 TO 6:PR1NT:N >GE 

EXT 

1740 PBINT TABU8>;"1-UNE LIGNE" )AX 

1750 PBINT TAB(16I;"2-PARAGRPHE" )BD 

1760 col=lNKEY»:col=UPPEB»(co«):IF >YQ 

co«=" THEN 1760 ELSE IF co»="l" TH 

EN 1770 ELSE IF co»="2" THEN 1870 E 

LSE 1760 

1770 CLStl:PBlNTIl: INPUTI1, "Ligne N >BV 

o:".no:IF no>i OR no<0 THEN 1770 

1780 CLS:FOR lt-0 TO 3:PRINT:NEXT:P >AX 

BINT "Linné No"tSTR»(no)t" à centre 

r ":PRIHT t»(nol 

1790 cen=25(LEN(t«lno))/2) >VZ 

1800 PBINT:PRINT " Nouvelle ligne a )YR 

wec centra<e:":PRINT:PRINT ST8INGII 

cen,32)»t$lno>:t»(no)=STBING»lcen,3 

2>U«(no):G0T0 450 

1810 ' >YC 

1820 CLS:FOR t=0 TO 6:PRINT:NEXT:PR >RP 

INT TABI19) /CENTRAGE ACCEPTE" 

1B30 PRINT TABI19);" (0/N)" >YW 

1840 col=iNKEYI:co«=UPPEfi»(co»):IF >FZ 

co»=" THEN 1840 ELSE IF co«="0" TH 

EN 1850 ELSE IF co«="N" THEN GOTO 4 



50 ELSE 1840 

1850 t»lnol=STRING»lcen,32)U»lnol: >ND 
GOTO 590 

1860 CLS:FOR E=0 TO 4:PRINT:NEXT: IN >HU 
PUT" Lune debut:",lid:PRINT: INPUT 
" Ll«ne lin:", 111 

1870 IF lidMlKl OR lid>i OR lil>i >LD 
THEN 1860 

1880 CLS:FOR t=0 TO 6:PRINT:NEXT:PR >LG 
INT TAB(19):"CONF1RMATION" 
1890 PRINT TABI19);" (0/N)" >WP 

1900 col=INKEY»:co«=UPPER«(co«):IF >FL 
co»=" THEN 1900 ELSE IF co»="0" TH 
EN 1910 ELSE IF co«="N" THEN GOTO 4 
50 aSE 1900 

1910 FOR lno=li( TO I il :cen=2S- (LEN )NE 
(t«(lno>)/2>:t»(lno>=STRING«(centr, 
32Ht»llno):L0CATE 10,5:PRINT"Liine 
":lno;"centrée. " 

1920 NEIT:CALL IBB18:GOTO 450 )IH 

1930 ' >ÏF 

1940 ' ■<• CORRECTION ••• )VG 

1950 ' >TH 

1960 OS:CLSI1:FOR t=0 TO 6:PRINT:N >HB 
EXT 

1970 PRINT TAB119l:"CÛNHRMATIÛN":P )EU 
RINT TABI19):" (0/N)" 
1980 co»=l»KEÏ»:coi=UPPE8«(co«): IF >FW 
col=" THEN 1980 ELSE IF co«="0" TH 
EN 1990 ELSE IF co«="N" THEN GOTO 4 
50 ELSE 1980 

1990 CLS:FOR e=0 TO 4:PRINT:NEXT:PR >VX 
INT" Litre No:";:lNPUT", Ino: 
2000 IF lno<0 01 Inoil THEN 1990 il >TU 
SE PBINT t » ! I no j 

2010 PBINT"Correction:*::lNPUT t»(l >MZ 
nul 

2020 PBINT'Lijne Né'tSTBXInol;" Co >IK / 
rriiee:":PRINT t«(lnot:G0T0 450 
2030 '■•• VISIONNER"» )IH 

2040 GOTO 590 >FF 

2050 ' •■•■■m >IK 

2060 ' • AIDE • >YA 

2070 ' ■■■■•■■■ >ÏB 

2080 CLS:CLSI1:CLSI2:PRINT STRINGil >T5 
22,32H"AIDE" 

2090 PRINTIw,STRING»(22,32)f-— " >BM 
2100 PRINTIw," TRAITEXT va vous ai >BH 
der à taper et iipmer vos / 

2110 PRINTIw," teites.Pour vous s >NR 
iiplifier la tache. TRAITEXT pos 

sède 5 parties (Nous allons les déc 
rlrel :":PRINTtw 

2120 IF INKEYI=CHR«(13> THEN 2130 E >HR 
LSE 2120 

2130 CLS:FOR e=0 TO 6:PRINT:NEXT: >VV 
PRINTIv," >0I VERS: Vous en / 
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trez le titre du teite et 

votre noi.Vous pouvez régler 
le son et vous pouvez 

norieer l'AIDE" 
2140 IF INK£V«=CHB»(13> THEN 2160 E >HY 
LSE 2140 

2150 CLS:FOR e=0 TO 6:P8INT:NEIT:PB >GT 
INTIv,' ■NOUV.TEITE:Deiande con 

f lriation;si oui, le 

teite sera effacé. SI non, 

vous contlnurez vo 
tre teit..." 

2160 IF INKEY»=CHR*<131 THEN 2170 E >HE 
LSE 2160 
2170 CL£:PBIKT:PBINT:PRlNTtu. >NK 

"UTILlTAlEES:Co«porte en lui 6 rub 
riques: 1 

2180 PRINTI»," -Le llsta|e":PB >PV 

INTIu," -Le crianeient (BASIC 

- FICHIERIVPRINTIy." -La sauv 

elarde (BASIC - FICH 1ER ) -rPRlNTil», " 
-La correctlon":PRINTIw," 
-Yfsionner VPRINTU, " -L' 

aide (BEHABfJUE.'on y est) 
2190 PRINTIw, >IQ 

-CHR»:HYPE 
fi-UTIL:Le pavé nuaénque peut 

être redéfini 
avec des 

CHBI en ASCII. 
220O PRINTIw, )FM 

" -Centrer:C'est 

une rubrique CAPITALE: 

Elle peraet de centrer une o 
u plusieurs lie 

nés. Les lianes seront 
donc lodifiées pour un centrage'; 



2210 PRINTIy," 

) parfait. ":PBINTIu, 



(PRESQUE >FE 

/ 

2220 IF INKEY»=CHR«(13) THEN 2230 E >HV 

LSE 2220 

2230 CLSrPSIHTtï," L' IMPRESSION Per >TH 

■et(Si vous possédez une nprii- a 
nte bien entendu !) de passer votre 
tette sous torie de: 

TEXTE / 
NOSHALlNuierotel.LISTINGl petit proi 
raue BASIC) et LETTREIKon nuier 
otel" 

2240 IF INKEY1=CHR»U3) THEN 2250 E )HB 
LSE 2240 
2250 CLS:PBINTIw, >UH 

" ET... La FIN. 
.. (Lâche!) 



m 



Deiande, evldeient votre CONFIBNA 
TI0N.S1 Maintenant, 91 vous av 
ez des PROBLEMES, n'esltez pas' 
2260 PfilKTI», >RC 

" FRAHC 
OIS BATUN.SAVAS-NEPIN 

38440 St JEAN DE BOURNAÏ ou p / 
« TEL: 74.58.76.30 

(detander François) 

2270 IF zozo=45 THEN CLOSEOUT ELSE )FF 
450 

2280 ' >fE 

2290 ' •<• NON AUTEURUITRE IH >YF 
2300 ' >m 

2310 TAGOFF:CLS:CLSI1:CLSI2:FOR e=0 >TP 
TO 4:PB1NT:NEXT:PRINT TAB(19U"1-A 
UTEURtTITRE": 

2320 PR1NT TAB(19)t"2-REGLAGE SON >BÏ 
2330 PRINT TAB(19H"3-IHPBIMER AIDE >EH 

2340 tr»=INKEÏ«:iF tr«=" THEN 2340 >BA 

2350 IF trl="l" THEN 2400 >BB 
2360 IF trl="2" THEN 2420 >RF 
2370 IF trl="3" THEN CLS: IF INPI3O0 >QX 
001=94 THEN PRINT:PRINT:PR1NT:PR1NT 
:PRINT:PRINT:PBINT:PRINT:PRINT:PRIN 
T TAB(13);"1HPR1HANTE INDISPONIBLE 
!":FÛB tep=0 TO 3000:NEÏT tep:CLS:G 
OTO 450 ELSE w=8:G0TO 2050 
2380 IF tr»=CHR$(13) THEN 450 >VH 
2390 GOTO 2340 >NA 

2400 'AuteurtTitre >XJ 

2410 CLS:FOB e=0 TO 4:PRINT:NEIT:PR >LN 
INT"Prénon:'i:INPUT",all:PRINT"Noi 
:";:INPUT".a2»:PRINT:auteu»=all 
"taii: PRINT'Titre:'::lkPUT' 
itr«=IIPPER»(tl«>:GOTO 450 
2420 CLS:' III Son m )GE / 

2430 LOCATE 1,6:PBINT TAB(19H"'ENT >■? 
ERi=Fln":IF vol)15 THEN vol=15 ELSE 
IF voKO THEN vol=0 ELSE SOUND 1,4 
0.5,vol:S0UND 1.0,5, vol :PRINT TABI2 
OH"»oluie= ":1F voKlO THEN LOCA 
TE 27.7:PRINT" ■»STR«(»ol 1ELSE LOCA 
TE 27,7:PRINT STRXvol) 
2440 volU=INKEY»:IF vol>15 THEN vo >JE 
1 = 15 ELSE IF voKO THEN vol=0 ELSE 
SOUND 1.40,5,vol:S0UM 1,0,5,0:1F v 
oll>="" THEN 2440 ELSE IF vollt=CHR 
1(240) THEN vohvoUUGOTO 2430 ELS 
E IF voll»=CHR«(241) THEN vol=vol-l 



nl=ilH" I 
lT",ti»:t ' 



:GOTO 2430 ELSE IF vol 1«=CHR»I13I T 

HEN 450 

2450 GOTO 2430 >MH 

2460 cen=25-(LEN(t»(i))/2):PRINT ST >LE 

RING»(LEN(t»(i)l," ")»STRING»(cen,3 / 

2>tt»(l):t»(i)="":t«(i)=STRING«(cen / 

,32nt«(nul:G0T0 640 

2470 ' >v F 

2480 ' Hl IMPRESSION »i >YG 

2490 ' >,u 

2500 TAG0FF:CLS:CLSI1:CLSI2:IF INPI >GK 

300001=94 THEN PRINT:PRIHT:PRINT:PR 

INT:PRINT:PRINT:PRINT:PRINT:PRINT:P 

RINT TAB(13);"IHPRIHANTE INDISPONIB 

LE !":FOR tep=0 TO 3000:NEXT tep:CL 

S: GOTO 450 

2510 PR1NT:PRINT " >yï 

IMPRESSION : Avantages:" 
2520 PRINT" >TH/ 

2530 PRINT:PRINT >JA 

" i-No 

lunes apparents 

2-Te«t impression BASIC / 

3-Lettre(N 

o-STANDAR) 

2540 llprl=INKET«:INPUT Hpr»:IF il >VF 

pr»=" THEN 2540 

2550 IF i >P r»="l" THEN 2580 >UH 

2560 IF iipr»="2" THEN 2590 >UL 

2570 IF iipr«="3" THEN 2670 >UM 

2580 FOR r=0 TO l:PRINTIB,"":r;tl(r >GÏ 

1:NEXT:CALL *BB18:GOT0 450 

2590 CLS:PBINTI8," 10 '"tCHR»(34Ht >RL 

ltr«»CrlR»<34) 

2600 PRINTI8," 20 ' Par "lauteu» )AA 

2610 PRINTtB,' 30 MODE 2:INK 0,26:B >ÏE 

ORDEB 26:INK 1.0 

2620 PRINTI8," 40 WINDOU 17,63,1,25 >DZ 



2630 FOR r=0 TO i:PRINTI8,S0»(n20) >VH 

"PRINT"tCHB»(34l 

2640 FOR lo=l TO LEN(tl(r)):PRINTI6 )ID 

,MID»(t»(r),lo,l)i 

2650 NEXT:NEXT >LL 

2660 GOTO 450 >pj 

2670 FOR r=0 TO i:PRINTIB," "tt»( >GX 

r):NEXT:CALL aBB18:GOT0 450 

2680 ' m FIN •■• >yj 

2690 CLS:CLSI1:CLSI2 >pj 

2700 TAGOFF:L0CATE 1, l:PRINT"Fin.CO >BJ 

NFIRMAT10N 10/N)" 

2710 conf«=INKEY»:IF conf$="" THEN >LP 

2710 ELSE conf»=UPPEJ»(conf»l 

2720 IF confl="0" THEN MODE 2:CALL >KV 

1BC02:END 

2730 IF confl="N" THEN GOTO 450 >XY 

2740 GOTO 2710 NA 



'/ 



33 



EDITIONS SORACOM 



SORACOM OUVRE SON SERVICE LECTEUR VPC 



Afin de satisfaire plus directement ses lecleurs.SORACOM ouvre son propre service de vente par correspondance. 




Ç CATALOGUE^)) 

Compilations cpc 

Vous recherchez les anciens numéros de CPC ? 

Vous souhaitez connaître le mode d'emploi de cer- 
tains logiciels du téléchargement ? 
Alors voici les compilations des numéros 1 à 4 et 
5 à 8 de CPC. 



COMPIL 
1 à4 



COMPIL 
5à8 



BONDE 

COMMANDE 

PAGE 38 




HAMSTERS EN FOLIE 


GENERATION 5 



A PARTIR DE 10 ANS: 

Hamsters en Folie est une simulation économique et 

humoristique qui vous entraîne dans les mystères de la 

gestion d'un élevage de hamsters. 

A vous d'accoupler vos animaux, de vendre des 

hamsters, d'acheter de la nourriture, des cages, des 

magasins, de payer vos loyers et de faire face à toutes 

les dépenses... 

Deux niveaux de difficulté. 

Sauvegarde possible du jeu en cours. 

Disponible sur disquette 3 M pour CPC 464, 664 et 
6128 au prix de : 225 F. 
Réf. : G5 007 CPC 




R 



pour II %6USSir n français et en mathématiques K 
8 disquettes bien remplies : 2000 questions - 50 exercices 



pour trouver tout seul 




- Elaborés par une ôguce d'enseignants et d'informaticiens 

- Testes dans de nombreuses écoles de Loire- Atlantique (lire CPC n° 
35-Jum1988). 

- Lexpénence montre qu'après 15 à 30 heures de travail la plupart 
des élèves (ont dans leurs dictées moins de 10 % d'erreurs sur l'en- 
semble des règles de la disquette 

t) En cas d'erreur, l'ordinateur pose des questions qui aident à trouver 
la bonne réponse. Sa méthode lai appel au raisonnement plus que la 
mémoire 

2) L'ordinateur chronomètre le temps de réponse Si ce temps est 
supérieur au temps normal l'ordinateur l'avertit que s'il ne répond pas 
plus vite il continuera à taire des fautes dans ses dictées 

3) Les résultats sont errogstrés pour encourager l'élève II peut voir 
que plus il travaille, plus le nombre de règles acqurses augmente. 



pour donner le moral 




ORTHOGRAPHE CE 


-VouF 


-ou, ou 




-ou.oup.oue.out 


- pluriel nom» 


-accord des ad ect k 


-bu», eu. au. eau 


- accord du verbe - féminin i 


-ta, ah, ta 


-Mt,«lM 


- temnn des noms 


- i, '*, f. De. i 


-présent 


- noms en i* aie 


-an. en. ani am 


- or «uni avoir, été -psjrieidesriomteni 


-e,è,è,a 


- près, taire, vo 


-pluriel des noms sn ou 


-c.que.ck.S.SS.C 


-passécomposé -But. tous, tout) 




- ar. ra ; or, ro 


- leur, leur» 


-S.SS 


-su, «ut. «ut. eu» -impéraW 


-a.a 


- on, om, ont. and - mpér aot avoir, tare 


-on, ont 


-s, se, et 


-impartait 




-Mis 


- luur Me. avoi 


-q.qu.j.g 


-Mpossesah 




-F.FF.prt 


-ces, ses 
-ok cette 




6128 
réf. IA401 CPC 







ORTHOGRAPHE CM 


-SouSS 


- ce. cet. cet» est 


-patte passé avec 




-«ou* 


en 


-gougu-couqu 


- leur ou leurs 


-parte passé avec 


-avoiauprésait 


-taisais, c'est 


avoir 




- peu, peut, peut 




-en ou ont 


-prés, prêt, pré 


- tout. M, toute 




-accord du vert» 


-passés, la. 3s or 


-être au présent 


- sans s'en, sens 


-passés je j< 


lemnri (tas noms 


- mat, mes. met 


-contlïcn présent 


-osseuses 


-partes» passé en i 


■ comit p verbeen 


- présent de llndk 


-partie passe adjectif 


«la 


-ce ou se 


-quel, qu'aie 


- conrJt p. verbe sn 




- mperaf présent 




- tnpar fait de llndic 


- pat. passé ete-avos 




- quand eu qu'en 

- tant, t«n. temps 


















6128 
Hé. 14403 CK 







ORTHOGRAPHE 6'-5* 



6 US 
r*f. 1*403 CPC 



ORTHOGRAPHE 4*-3» 



- impartait, irxfe 

- mparfat indic. 

- accord p passé 
-préev irréoul 



- passé «m c*e nd 
-adj de couleur 
-mp ou pats » 

- verbe oup passe 

- imparf uass t 

- accord nu-demi 
-tiur an teneur 



- passé antérieur - accord p passé 

- ara i «et - eend présent 

- mpér aof prés. - tsmiinaison mots 



-pronoms isialfe 

-vencsr-osr - verbe asaeoi 

- brma le* adv. - accordp passe 

- p prétent/adj. v - subj présent 

- accord tout même -mctten...M...le 
-voiepaeelve - subj. impafait 
-quslfslflu'efle - maec. ou féminin 

- oond présent - v. patcutiers 



61 U 
Hf.L44Q7CPC 



VOCABULAIRE CM 


-h anonymes 


-pendu 


- placer des mon 


-coniaires 


-pendu 


- placer dss mots 


-synonymes 


- placer des me 


i -homonymes 


-senspropHjn/é 


- placer dee mots - hemonymes 


-prêtrise 


- riacer des mots - synonymes 




- con tairas 


- con tairas 


-familles 


-synonymes 


- racine des mots 


-suflUes 


-eonrarss 


-sens expressions 


-verbesAwms 




s -dérives 


-adjsco'ls 


- placer des mots - placer des mots 


-adverbes 


- placer des mots - radns des mots 


-noms de métiers 


- placer dee mots - adverbes 


- adjeclf&verbes 


- placer des moB -contaWas 


-paronymes 


- placer des mots - synonymes 


- pUcet des mots 

- placer des mots 












61 2 S 
réf. 14404 CPC 







CONJUGAISON 






611» 

rM. 14406 CPC 



LES 4 OPERATIONS 



• > ■ — . 

Vf/-. 

VCUlnw. 

y -M- -—, 

r M, • -, 

«cCE'nx 



multtfe CE' n*«u 2 
m u l«[*c CEI IwM I 






61 28 
réf. 1440S CPC 



MATHEMATIQUES CM 


*éMetKSMb «îefti -etan.ka : «a. .camps - woantrt an Mo 
-mutnamipa*** - asaHMjetMa ! -•«■i 1 « 

- OUI -•■ '.* 1 - i-qv-r- - -w« m -,mr. 

■**+<r2 -«r- -,-■.„ 

- -JtOï ■ore«*(M: -•^artratc-m., -.x~«rrtwM 
-cuuimaniî -,- « '! 'ne I0M aurtt 


-**" 


6123 
M. 14400 CK 





180 F 

la disquette 3' 



pour 
464/664/6128 





iaiYïasMmia 




GU 550323 


APPRENDS-MOI A LIRE 


195 F 


CU 550283 


APPRENDS-MOI A COMPTER 


195 F 


GU 550303 


APPRENDS MOI A ECRIRE 


195 F 


MC 1 5 CPC 


EDUC MATERNELLE 1 


200 F 


MC 18 CPC 


EDUC MATERNELLE 2 


200 F 


MC 20 CPC 


LECTURE CP 


200 F 


GU 553463 


"Collection Micropoche Ecole" 


150 F 


J'APPRENDS A URE 


GU 553443 


J'APPRENDS A ECRIRE 


150 F 


GU 553603 


J'APPRENDS LES NOMBRES 


150 F 


GU 553623 


J'APPRENDS A OBSERVER 

"Collection Réussir" 


150 F 


144 01 CPC 


ORTHOGRAPHE CE 


180 F 


L44 02CPC 


ORTHOGRAPHE CM 


180 F 


144 03 CPC 


ORTHOGRAPHE 6/5ème 


180 F 


144 04 CPC 


VOCABULAIRE CM 


180 F 


L44 05CPC 


LES 4 OPERATIONS 


180 F 


L44 06 CPC 


CONJUGAISON 


180 F 


144 07 CPC 


ORTHOGRAPHE 4/3ème 


180 F 


L44 00CPC 


MATHEMATIQUES CM 


180 F 



'Pfus de 100 iogicieis éducatifs 



ïxam&im 


GU 550104 
MC 13 CPC 
MC 1 1 CPC 
MC 12 CPC 
MC 208 CPC 


FRANÇAIS CEI/CE3 laid» à la lecture) 

FRANÇAIS CM 

ORTHO CM 

FRANÇAIS SONS CP/CE1/CE2 

FRANÇAIS SONS ÇP/ÇE1/CE2 (K7) 

"Mathématiques" 


225 F 
200 F 
200 F 
200 F 
170 F 


MC 01 CPC 
MC 210 CPC 
MC 02 CPC 
MC 200 CPC 


MATHS CE 
MATHS CE (K7) 

MATHS CM 
MATHS CM (K.7) 

"Géographie " 


200 F 
170 F 
250 F 
200 F 


MC 19 CPC 


GEOGRAPHIE PRIMAIRE 


200 F 



47'-S3'i 




"Mathématiques" 




MC 07 CPC 


MATHS SECOND CYCLE 1 


250 F 


MC 206 CPC 


MATHS SECOND CYCLE 1 (K7| 


200 F 


MC 08 CPC 


MATHS SECOND CYCLE 2 


200 F 


MC 207 CPC 


MATHS SECOND CYCLE 2 |K7) 


170 F 


MC 09 CPC 


GEOMETRIE PLANE (4em. à terminale) 


200 F 


MC 10 CPC 


ESPACE ET SOUDES ( 1 re à terminale) 


200 F 


MC 14 CPC 


EXAMS - Tous niveaux 


200 F 


GU01 CPC 


FONCTIONS NUMERIOUES (ave< CP/M) 


250 F 


GU03CPC 


CREER ET JOUER AUX MATHEMATIQUES 


250 F 


GU 02 CPC 


STATISTIQUES ( 1 re à terminale) 


200 F 


GU 004 CPC 


MATRICE [à partir de la terminale) 


250 F 


GU 005 CPC 


POLYNOMES (à partir de la terminale) 

"Micro Bac" 


250 F 


GU 553283 


MICRO BAC FRANÇAIS {Ire à terminale) 


195 F 


GU 553343 


MICRO BAC MATHS B 


195 F 


GU 553303 


MICRO BAC MATHS C/E 


195 F 


GU 553323 


MICRO BAC MATHS D 


195 F 


GU 553403 


MICRO BAC PHYSIQUE/CHIMIE 


195 F 


GU 553263 


MICRO BAC ANGLAIS 


195 F 


GU 553383 


MICRO BAC ESPAGNOL 


195 F 


GU 553423 


MICRO BAC HISTOIRE 


195 F 


GU 553363 


MICRO BAC GEOGRAPHIE 


195 F 





"Collection Génération 5" 




C5 001 CPC 


DESTINATION MATHS CE1/CE2 


199F 


G 5 002 CPC 


DESTINATION MATHS CM1/CM2 


199 F 


G5 003 CPC 


DESTINATION MATHS 6/5im. 


199F 


G5 004 CPC 


TROUBADOURS [à partir d* 9 ans) 


199F 


G5 005 CPC 


LES 4 SAISONS DE L'ECRIT CE/CM 


225 F 


G5 006 CPC 


LES 4 SAISONS DE L'ECRIT 6/3em« 


225 F 


G5 007 CPC 


HAMSTERS EN FOUE (niv.au junior) 


225 F 



fg©aiii®8 




"Français" 




GU 555204 


ECRIRE SANS FAUTES (val. 1) 


195 F 


GU 555184 


ECRIRE SANS FAUTES [vol. 2) 


195 F 


GU 554784 


"Série Qram, lanque française" 


245 F 


LANGUE FRANÇAISE 6éme 


GU 554744 


LANGUE FRANÇAISE 5ème 


245 F 


GU 554764 


LANGUE FRANÇAISE 4ème 


245 F 


GU 554704 


LANGUE FRANÇAISE 3ème 


245 F 


GU 554664 


LANGUE FRANÇAISE 6/5ème regroupé 


345 F 


MC 17 CPC 


GRAMMAIRE 6/5ème 


200 F 


GU 556404 


AVENTURES DE MONTE CRISTO 6/3ème 
"Mathématiques" 


195 F 


MC 03 CPC 


MATHS 6 


200 F 


MC201 CPC 


MATHS6IK7) 


170 F 


MC 22 CPC 


CALCUL RAPIDE 


200 F 


MC 09 CPC 


GEOMETRIE 


200 F 


MC21 CPC 


MATHS 5 


200 F 


MC 202 CPC 


MATHS 5 |K7) 


170 F 


MC 04 CPC 


MATHS 5/4 


200 F 


MC 05 CPC 


MATHS 3 


200 F 


MC 06 CPC 


EQUATIONS 


200 F 


MC 205 CPC 


EQUATIONS (K7) 

"Collection Micro Poche" 


170 F 


GU 553563 


FRANÇAIS REUSSITE 6eme 


150 F 


GU 553543 


FRANÇAIS REUSSITE 5ème 


150 F 


GU 553523 


FRANÇAIS REUSSITE 4ème 


150 F 


GU 553583 


FRANÇAIS REUSSITE 3ême 


150 F 


GU 553483 


MATHS SUCCES 6ème 


150 F 


GU 553503 


MATHS SUCCES Sème 
"Sciences" 


150 F 


GU 552783 


A LA DECOUVERTE DE LA VIE 6/5. me 


195 F 


GU 553683 


A LA DECOUVERTE DE L'HOMME 4/3ême 


195 F 


GU 553663 


A LA DECOUVERTE DE LA TERRE 4/3ème 

"Histoire • Gèo" 


195 F 


GU 553823 


OBJECTIF MONDE ni (milieux naturel!) 


195 F 


GU 553703 


OBJECTIF MONDE n°2 (Am. lat., Afr., Asie) 


195 F 


GU 552883 


OBJECTIF EUROPE 


195 F 


GU 553783 


OBJECTIF FRANCE 

"Anqlais" 


195 F 


GU 555244 


ANGLAIS COLLEGE DEBUTANT 6/5ème 


195 F 


GU 555224 


ANGLAIS COLLEGE CONFIRME 4/3ème 


195 F 


GU 552923 


VISA POUR HYDE PARK 6ème 


220 F 


GU 553003 


BALADE AU PAYS DE BIG BEN 6/5ême 


225 F 


GU 550403 


ENIGME A OXFORD 4/3ème 


225 F 


GU 553243 


BALADE AU PAYS DE L'ANGLAIS 


720 F 


GU 339 CPC 


GRAMMAIRE ANGLAISE 6ème 


336 F 


GU 340 CPC 


GRAMMAIRE ANGLAISE Sème 


336 F 


GU 379 CPC 


GRAMMAIRE ANGLAISE 4ème 

"Allemand" 


336 F 


GU 553023 


BALADE OUTRE-RHIN 6/5ème 


225 F 


GU 550383 


ENIGME A MUNICH 4/3ème 

"Espagnol" 


225 F 


GU 550363 


ENIGME A MADRID 4/3èma 


225 F 


GU 554384 


BALADE EN SOUS-SOL A SEVILLE 
"Micro Brevet" 


220 F 


MB 001 CPC 


FRANÇAIS 


220 F 


MB 002 CPC 


ALGEBRE 


220 F 


MB 003 CPC 


GEOMETRIE 


220 F 


MB 004 CPC 


HISTOIRE 


220 F 


MB 005 CPC 


GEOGRAPHIE 

"Collection Multicours" 


220 F 


GU 557064 


MULTICOURS 6ème 


245 F 


GU 557084 


MULTICOURS 5ème 


245 F 


GU 557104 


MULTICOURS 4ême 


245 F 


GU 557124 


MULTICOURS 3ème 


245 F 
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SIS® L@(SII©niBÎLS HHWArrj SÉMTTIBIEEÏIEILILIB, IFIEIMLMIS® ®T ©K©(D>WimMISIB 



ET 'PgtMAfM 



EDUC-MATERNELLE-1. 
NIVEAU 4à6ANS. 



MC15CPCdl«k200F 



EDUC-MATERNELLE-2 NIVEAU 
MATERNELLE CP. 



MC 18 CPC disk 200 F 



n esprit d'anale et découvre les règle! 
'S apprentissages comme l'organisation O 
jge. le sens de la lecture et de l'écriture, I 



■ -il. MmV'EO 

MO 01 CPC disk 200 F 
MC210CPCK7170F 



- Ronger de) nombres en ordre croissant et décroissant - Com- 
parer des nombres (supérieur inférieur] sommes produits - Comp- 
ter po s o pas(l, 2. 5, 10, 20. 40 .)- Calculs sur les opéro 
lions élémentaires (lableau de double entrée) - Compter b "on 
noie - Lire el officher l'heure - Déplacer une lortue (exécuter e> 
reirouve'l - Symétries axioles 



rii ii n 1 g i im 
MC02CPCdl!k250F 
MCZ00CPCK7a00F | 

Ce logiciel comprend des modules sur les colculs (opérations, 
'rodions | ou ta géométrie (syméiries sur repère orthonormè avec 
possibilité de construction de ligures. | - Opèrolions verticales 
sur des entiers (avec retenue] - addition - soustraction - mullipli 

- F roc lions simpJes : 

- sur des portes de rectangles, de comembefls - (rodions équi- 
valentes - numèraleuts d'une fraction 

- Colculs d'aire*. 

- COtrè ■ redongle . . avec explication des formules en cos d'er- 

- Calculs de volume 

- 5yméirie (centrole el a.iale) 

- Suites proportionnelles 

- Pourcentages 



FRANÇAIS-SONS. NIVEAU CP CEI CE2. 



MC 12 CPC disk 200 F 
_MC208 CPCK7 170F 



3 - Sélectionner dons des phrases les mas oyom les 

Une sén'e de sons avec niveau de difficulté progrès: 
convenir aux élèves des clos ses de CP pour l'opiio 
élèves de CE l CE2 pour les opiions 2 et 3 



ORTHO-CM. NIVEAU CE2 CM1 CM2. 



MCl1CPCdl»k20QF 



Ce logiciel permei d'apprendre les régie: 
graphe en complètent des phi 



, règles principe. 

(19 règles ex 



A chaque foule, une explication est donnée ô l'élève sous la 
forme d'une queslion de remplacement qui lui permettra de com- 
prendre son erreur A tout momem, cette règle pourra èlre ofr- 
chée pour explication. 



FRANÇAIS-CM. NIVEAU CM1 
CM2 SIXIEME. 



MCl3CPCdis k2Q0F 

lu deux fautes sur choque lettre (au choix) et ovec cor- atege des 



bu.... 

Un fichier niveou CM 1 CM2 de 20 dielées est fourni avec ce lo- 
giciel mais une option de créalion permet de créer des d.clées 

Une option lecture permet également de lire les lentes de ce fi 
Chier. 

2 - Participes passés avec ETRE e AVOIR Cène option permet 
d'opptendre à accorde les participes passés avec les vertes 
ETRE et/ou AVOlB avec sujet, complémem d'obiel direct ou mdi- 

A choque foule, une expli cation du corrigé sero visualisée 

Un fichier de phrases est également iourni. ainsi qu'une option 

pe'menont io création de ses propres fichiers d'exercices. 

3 - Conjugown ce module perme' à l'élève d'apprendre a 
con|uguer les verbes des 3 groupes aux temps de son choix (im- 
porfail. fulur ontérieur, présent ..) sous b forme de phrases à 
compléter 

A choque bure, une explication sera visuolisée et le comptage 
de potnls opporal>ra a. ta fin de l'exercice 



GEOGRAPHIE-PRIMAIRE. NIVEAU 
PRIMAIRE. 



MC 19 CPC disk 200 F 



MC 20 CPC disk 200 F 



JtWAit 

S£C0iïDA/f>S~ 



MC17C PC disk 200 F __ 






n de fond 



e des groupes 
• lumummun ta phrase (sujet, verbe, complément .J. 
Apprentissage avec roppel de Cours odaplè à choque station 
Révision générale 

is 220 phrases comenues dons ce logiciel sont réparties en 
niveaux et couvrent plus de 1400 questions Au niveau l.l'uti- 
oteur peut commencer en CM2 



MATHS-6. ALGEBRE 
POUR U CLASSE DE 6EME 



MC 03 CPC disk 200 F 
MC201CPCK7170F 



- Opérations ♦ - X / - Ficelons - Colculs d'oi-es - Cofculs 
les relatifs - Pourcentages avec graphismes - Suites ptapofl 
nelles avec graphisme - Symétries orthogonales 



MATHS-5. NIVEAU 5EME 
(NOUVEAU PROGRAMME) 



MC21 CPC disk 200F 

MC202CPCK7170F 



MATHS-54. ALGEBRE 
POUR LES CLASSES DE 5EME ET «ME. 



MC 04 CPÇ 200 F 

- Muluples et diviseurs d'un entier - Nombres premiers - Puis- 
sances d un entier naturel - Décomposition d'un entier naturel 

- P GC D et PPC M - Colculs algébriques 

- Rationnels (simplifications et opérations de fractions) - Equo- 



MATHS 3 ALGEBRE 
POUR LA CLASSE DE 3EME 



j MC 05 CPC disk 200 F 

- Consiruciions de vecteurs - Colculs sur les droites - Systèmes 
linéaires 2.2 - Région ne ment du plan ■ Colculs sur les racines 
carrées - Notions de trigonométrie 



EQUATIONS. ALGEBRE POUR LES 
CLASSES DE 3EME ET 2NDE. 



MC 06 CPC disk 200 F 
MC20SCPCK7170F 



MATHS SECOND CYCLE-1. NIVEAU 
SECONDES A TERMINALES 



MC 07 CPC disk 250 F 
MC2O6CPCK7 2O0F 



- Equations du second degré avec ln»«rpn! 
v - f|X] avec choix du répète et des unii 
thoOe des rectangles ovec "iterprèratio 



MATHS SECOND CYCLE-2. 

ALGEBRE POUR LES CLASSES DE 

SECONDES A TERMINALES. 



MC 08 CPC disk 200 F 
MC207CPCK7170F 



Dges po' opplicoiion affine - Courbes avec options (dont 
copy) - Courbes superposées - Courbes définies par mor- 
i> - Familles de courbes - Courbes plones (cinématique) 
xjrbes définies par une intégrale 



GEOMETRIE PLANE. NIVEAU 4EME 
A TERMINALE 



MC 09 CPC disk 200 F 



segments et cercles, le closnque -TRACER à b règle et ou corn 
pas- accompagné de commemoirei ei de ious les résultats de 
géométrie onarytique Une ligure peut êlre souvegordèe ou impti- 

Huit exemples classiques de constructions géométriques accom- 
pagnent cet utilitaire Ibissecirtces, longenles ...]. 
- Une élude par le dessin des TRANSFORMATIONS GEOME- 
TRIQUES (Iran stations, homothèl*. roioi.on, symétrie axiale et cen- 
trole, similitude) sut des ligures simples (carré, triangle, bsonge ) 



ESPACES ET SOLIDES. NIVEAU PREMIERE 
ET TERMINALE. 



j . MC1QC PC disk 2 F 

Dessin géométrique dons l'espace : Uiîliiaire de dessin pour ira 
cet points, drôles, segments el plans accompagnés de commet 
loires éventuels ovec possibilité de souvegotde et d'impression 
Lo partie importante est ta perspective choisie - lo perspective 
■fil de fer. qui permet de retoire le irocè sous des ongles diffé- 
rents - la perspective ovec les plan» colorés qui donne urvs meiieure 

Une représentation de SOUDES dons l'espace avec : Entrée du 
solide de votre choix - Impression de fichiers de données - Choix 
des ongles de perspectives - Des exemples de solides (solides 
de PiAfON. èloile de WEPER ) 



ES li-. 1 .',,"■■■ 

MCI 4 CPC disk 200 F 



37 



Ce logiciel comprend une partie Questionnaire a chor» rtxitipies 

ei une portie Liste de uoeobubre 

ÛCM 

Permet de tester ses connoissonces 

- 3 fichiers de culture génétole 

- I fichier sur b Révolution française 

- I fichier sut b tangue anglaise 
VOCAIIST 

Permet de tester ses connoissonces sur les longues 

- 3 fichiers ANOAIS-F (LANÇAIS 

« esi possible de créer ses propres Q.C.M sur tous sujets ainsi 
que ses propres VOCAIIST sur les tangues. 
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1 respondent. Lee abonne» à CPC bénéficient du tarit unitaire de 111 F 



respondent 
| pour lee disquettes 



1 Code postal : 
Date : 



I Entoura lm<s} numérota) choisi». 



Ville : 

Signature 



Mero dêowe «r. majuscules Ci-ptnt un chèque kbeilé 4 I ordre des Edioons SORACOM. Retournez le{s) coupon(s) ou une photoœpw à Edmns SORACOM - La Haie 
oe Pen ■ Jet 70 BRUZ 



S0R4C0W 




Media Box 
DISQUETTES 5 1/4" (F) 

182 x178 x348 mm 
7114x7x13314" 



Pour 70 disquettes 5 1 /4" au maximum. 
Livré avec des séparations à index. 




Media Box 
COMPACT DISC (M) 

148 x 135 x 348 mm 
53/4x51/4x133/4" 



V N° 310.502.6 

Pour 13 Compact Dises simples 




MEDIA Box 

CASSETTES 

VIDEO (L) 

222 x135 x348 mm 
8314x5114x13314" 

N° 310.504.0 

Pour 9 cassettes 

Vidéo VHS, 

V2000, Betamax 



Media Box 
DISQUETTES 3"-3 1/2" (l) 

221 x 135x348mm 
8314 x 51/4x133/4" 



Pour 1 50 disquettes 3"-3 1 /2" au maximum. 
Livré avec diviseurs réglables à volonté. 



Media Box COMPACT 

DISC 

MULTI (D) 

148 x177 x348 mm 
5314x7x13314" 



N° 100.525.0 
Pour 23 CD Simples ou 11 CD Doubles ou 
11 CD-Magazines même panachés car les 
parois sont amovibles. 



+ port 

25 FF unité 




Media Box 
MINI-CASSETTE (S) 

148x91 x 348 mm 
53/4x31/2x133/4 



Pour 16 Miniossettes, Cassettes de données ou 
ROM/RAM Cartridges 



Nouveau 




Fiançait : amélioration de la virasse de lecture et 
de la compréhension du terne autour d'exercices 
variés et amusants 

5ci*nc*3 naluraffej ; une initiation à la démar- 
che scientifique et aux lois biologiques du monde 
vivant abordée avec des mois simples. 
Géographie : découverte de la variété des milieurs 
naturels et initiation a r interprétation de canes, gra- 
phiques et autres données climatiques 

Jeu : un jeu divertissant a découvre 
Réf. Gl 1557064; 245 F 



POUR CPC6128 tXCLUSIVEMBNT 

Franc* .-pertecliofinement de la lecture regrou- Fnnçala : maîtrise de la lecture avec le support 

pant lecture et recherche, antiepation mais aussi o"un texte riche et une variété d'exercices de corn- 

interprétation préhension, d'analyse et de logique. 

Sciancaa natunllu : initiation à la biologie ani- Sclaticaa jwJim/Im : découverte de la Terre et 

maie et végétale a travers l'alimentation, le sys- de son histoire à travers les grands phénomènes 

lème de respiration, le mode de reproduction ou géologiques abordés grâce a des textes de con- 

de locomotion naissance, des animations 

Géoçraphia : voyage sur 2 continents proposant Géoçraphia : tout sur r Europe, ses états, ses ins- 

une découverte du quotidien, des forces et fat- mutions, ses réussites, ses alliances: le mode dem- 

biesses de r Amérique latine et de TAfrtque ploi pour 1932. 

Jeu ; 1 jeu divertssant a découvnr. Jeu : 1 jeu divertissant à découvrir. 

Réf. GU 557084 : 245 F Réf. GU 557104 : 245 F 

Utilisez le bon de commande SORACOM page 38 



Fntnçaia : test de performance de lecture suivie, 

qualité de compréhension, appréciation du sens et 

du style grâce à une pédagogie active 

Science» nature/ta* : une initiation à la biologie 

humaine apprenant a observer et à interpréter les 

comportements de notre corps 

Géoçraphia: analyse de canes et interprétation de 

diverses données statistiques pour une étude de 

la France de 1969 : régions, villes, institutions, vie 

économique industrielle 

Jeu : 1 ]eu divertissant a découvrir 

Rét.GU 557124 :245 F 



